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PREFACE 


This  technical  report  documents  a  proposed  design  architec¬ 
ture  and  methodology  used  to  integrate  multiple  relational  data¬ 
base  systems,  in  support  of  the  Intelligent  Access  to  Multiple 
Relational  Databases  project  under  the  Discretionary  Research 
Program.  The  proposed  architecture  incorporates  the  use  of  arti¬ 
ficial  intelligence  in  an  intelligent  front  end  to  provide  non- 
intrusive  access  to  multiple  relational  database  systems.  The 
intelligent  front  end  is  comprised  of  a  user  interface,  including 
a  meta-knowledge  source,  and  individual  knowledge  sources  for 
each  database  application. 

This  research  and  development  was  done  and  this  report  was 
written  at  the  US  Army  Engineer  Waterways  Experiment  Station, 
Information  Technology  Laboratory  (ITL) ,  Computer  Science  Divi¬ 
sion,  Systems  Modernization  Unit,  by  Ms.  Peggy  Wright.  The  work 
was  sponsored  by  funds  nrovided  by  the  Discretionary  Research 
Program.  The  skillful  coding  efforts  of  Mr.  Shannon  Thornton  are 
gratefully  acknowledged.  His  patience  and  painstaking  effort  in 
following  specification  to  minute  detail  helped  make  this  re¬ 
search  effort  possible. 

Ms.  Mary  K.  Vincent,  Chief,  Office  of  Technical  Programs  and 
Plans,  WES,  is  manager  of  the  Discretionary  Research  Program. 

The  work  was  accomplished  at  WES  under  the  supervision  of 
Ms.  Barbara  Comes,  Chief,  Systems  Modernization  Unit,  Dr.  Windell 
Ingram,  Chief,  Computer  Science  Division,  and  Dr.  N.  Radha- 
krishnan.  Director,  ITL. 
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1  Introduction 


There  are  many  applications  employing  databases  currently  in 
use.  Consequently,  a  single  access  point  to  multiple  databases 
is  of  significant  interest  because  it  allows  information 
resources  to  be  shared  without  undergoing  additional  development 
effort.  Many  terms  such  as  multidatabase  systems,  federated 
databases ,  composite  databases,  and  distributed  databases  have 
been  introduced  in  recent  years  to  express  this  concept . 

''Multidatabase  systems  give  users  a  common  interface  to 
multiple  databases,  while  minimizing  the  impact  on 
existing  database  operations"  (Bright,  et  al . ,  1992). 

"A  distributed  database  is  a  collection  of  multiple, 
logically  interrelated  databases  distributed  over  a 
computer  network"  (Ozsu  and  Valduriez,  1992)  . 

The  major  difference  in  multidatabase  systems  and 
distributed  databases  is  that  multidatabase  systems  consist  of 
heterogeneous  systems  with  different  user  access  methods.  A 
distributed  database  has  only  one  database  management  system 
(DBMS)  and  therefore  one  set  of  access  methods,  but  consists  of 
multiple  distributed  database  nodes  on  a  network.  While  there  is 
much  discussion  in  this  area,  the  commercial  technology  is  still 
lagging. 

Many  conceptual  models  have  been  developed  in  an  attempt  to 
provide  access  to  multiple  databases.  These  include  Open 
Intelligent  Information  Systems  Architecture  (Kaula,  1990) ,  and  a 
model  discussed  in  "Using  Knowledge -Based  Technology  to  Integrate 
CIM  Databases"  (Dilts  and  Wu,  1991)  that  presents  a  conceptual 


framework  to  allow  connection  of  pre-existing  heterogeneous 
databases.  This  architecture  proposed  a  knowledge -based  system 
to  perform  "communication  and  processing  of  shared  information." 

The  idea  of  using  artificial  intelligence  (AI)  to  extend  the 
usefulness  of  computer  systems  is  not  a  new  one.  Since  the 
field's  beginning  in  1956  (Charniak  and  McDermott,  1986),  AI  has 
grown  and  become  a  highly  accepted  technology. 

AI  is  a  common  tool  that  may  be  used  to  extend  the 
capabilities  of  a  computer  program  or  system.  Historically, 
these  systems  run  the  gamut  from  applications  like  an  expert 
system  to  visually  identify  microfossils  (Swaby,  1992),  to  speech 
recognition  (Nii,  1986),  to  a  sophisticated  targeting  system 
(Dunn,  1990).  Other  uses  for  AI  include  the  field  of  robotics 
(Meiran,  1988),  voice  recognition  (DeYoung,  1984)  and  terrain 
analysis  (Maune,  1991).  The  previously  mentioned  conceptual 
models  developed  to  access  multiple  databases  all  propose  the  use 
of  AI  to  achieve  this  extended  access. 

2  Background 

The  primary  goal  of  Intelligent  Access  to  Multiple 
Relational  Database  Systems  (lAMS)  is  to  investigate,  design,  and 
develop  a  prototype  model  to  provide  nonintrusive  intelligent 
access  to  multiple  databases.  Nonintrusive  implies  that  a)  the 
database  design  does  not  have  to  be  altered  in  any  manner;  b) 
access  is  query  only,  i.e.,  no  updates;  and  c)  impact  on 
participating  databases  is  minimized.  Intelligent  access  is  the 
ability  to  determine  which  participating  database  or  databases 
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has  the  target  data  and  retrieve  it.  Target  data  is  defined  as 
the  data  needed  to  satisfy  a  user  request.  Relational  database 
theory  is  the  basis  for  the  database  techniques  and  analysis 
methodology  used  in  this  research. 

Intelligent  access  is  especially  needed  when  co¬ 
relationships  exist  among  databases.  When  data  from  more  than 
one  source  are  required  to  respond  to  a  request,  then  a  simple 
CO- relationship  exists.  When  information  from  one  query  is  used 
to  form  additional  queries  in  responding  to  a  request,  then  a 
complex  CO- relationship  exists. 

With  most  multiple  database  or  distributed  database 
applications,  the  user  or  the  user  interface  must  know  which 
database  has  the  target  information.  The  intelligent  aspect  or 
intent  of  lAMS  is  to  have  the  user  interface  dynamically 
determine  and  query  any  database  containing  the  target  data. 

This  capability  extends  the  usefulness  of  existing  databases 
by  allowing  relationships  to  be  established  across  databases 
dynamically  at  run  time  while  requiring  little  knowledge  on  the 
part  of  the  user.  This  enhancement  means  that,  for  example,  a 
user  wanting  to  know  information  about  a  particular  site  could 
find  out  about  personnel  and  equipment  at  the  site  with  one 
query.  Without  this  enhancement,  the  example  might  require  two 
separate  queries  or  even  phone  calls  to  request  different  people 
to  query  two  separate  databases. 

Databases  are  continuously  being  redesigned  and  expanded  to 
add  new  related  data.  Through  the  use  of  AI,  database 
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application  systems  can  be  extended  and  used  in  ways  not 
previously  considered  without  structural  database  redesign. 

These  additional  resources  can  be  achieved  without  expensive 
modification  to  the  underlying  database  applications,  thus 
extending  the  usefulness  of  existing  database  systems  by 
providing  multiple  database  access.  This  concept  known  as 
"interconnectivity"  is  a  means  of  sharing  information  between 
arbitrary  database  systems  (Brodie,  1988) .  An  automated 
interconnected  network  of  databases  introduces  the  potential  to 
exploit  relationships  among  separate  databases  to  provide 
increased  usefulness. 

For  more  information  on  the  subject  of  extending  the 
usefulness  of  existing  database  systems  with  AI  technology,  the 
user  is  referred  to  a  book  on  the  subject.  Intelligent  Databases 
(Parsaye,  et  al . ,  1989),  and  a  paper  "Potential  Methodologies  of 
Intelligent  Access  to  Multiple  Databases"  (Wright,  1992). 

3  Design  Architecture 

The  means  of  achieving  the  goal  of  nonintrusive  access  to 
multiple  relational  databases  is  through  the  use  of  intelligent 
access.  Three  plausible  designs  are  explored  in  detail  in 
"Potential  Methodologies  of  Intelligent  Access  to  Multiple 
Databases",  which  drafts  the  lAMS  basic  architecture. 

Analysis  of  the  three  classes  of  potential  access 
methodologies  made  apparent  that  an  intelligent  front  end  (IFE) 
to  each  existing  application  database  is  necessary.  Each  method 
explored  uses  an  IFE,  whether  it  is  known  as  a  knowledge  source 
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(KS) ,  an  expert  system,  or  an  autonomous  system.  The  other 
common  link  is  the  communications  control  mechanism.  In  most 
cases  this  function  is  incorporated  in  an  intelligent  user 
interface . 

A  composite  architecture  derived  from  the  methodologies  and 
applications  explored  is  the  basic  design  which  is  proposed  as  a 
result  of  this  research  and  is  illustrated  in  Figure  l.a.  The 
intelligence  designed  into  lAMS  resides  in  several  modules. 


K  s 


DB 


1  k; 


corT-Koi. 

s. 

c;o  M  rt 


DE 


Figure  l.a  Intelligent  Access  Architecture  Design 

DB,  Existing  database  system 

KS,  Knowledge  Source:  Knows  its  database 
entities/ relationships 

lUI  Intelligent  User  Interface:  Provides  user  friendly 
interface,  contains  mechanisms  to  control  queries, 
communicates  with  all  KS 


The  intelligent  user  interface  contains  the  communications 
and  control  mechanisms  necessary  to  communicate  user  requests  to 
the  appropriate  KS  for  translation  into  a  database  query.  A 
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separate  KS'  is  built  for  each  database  that  is  to  be  linked  into 
the  system.  This  architecture  provides  the  flexibility  to  add 
additional  databases  to  an  already  functioning  network  of 
database  systems. 

During  the  design  and  development  of  the  lAMS  prototype, 
this  model  was  further  expanded  and  refined  to  the  architecture 
shown  in  Figure  l.b.  The  logical  functions  contained  in  the  lUI 
are  better  defined  and  the  modules  encapsulated  such  that  the 
module  interfaces  became  loosely  coupled. 

The  user  interacts  with  the  user  interface  (UI) ,  typing  in 
requests  for  data  and  observing  the  response  from  the  lAMS 
system.  The  C&C  module  receives  the  request  from  the  UI  and 
relays  part  of  this  input  to  the  meta- knowledge  source  (MKS) 
which  determines  the  database  application  or  applications  that 
might  contain  the  requested  information. 

This  knowledge  is  conveyed  back  to  the  C&C  module  which 
activates  a  KS  process.  The  KS  determines  which  table  or  tables 
potentially  contain  the  necessary  data  and  any  related  fields 
that  are  referenced  to  find  it.  A  query,  generated  from  this 
information,  is  sent  to  the  database.  The  query  results  are 
ref'-rned  to  the  C&C  which  checks  the  results  and  passes  them  to 
the  UI  for  display  to  the  user  screen. 


'  Knowledge  sources  are  defined  by  Penny  Nii  (Nii,  1986)  as 
"logically  independent  sources  of  knowledge." 
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Figure  l.b  Refined  Intelligent  Access  Architecture  Design 

DB,  Existing  database  system 
KS,  Knowledge  Source:  Knows  its  database 
entities/relationships 

C&C  Communications  and  Control  module:  provides 
communication  between  UI  and  KS  modules 
MKS  Meta -knowledge  Source:  contains  knowledge  about 
KSs  and  relationships  between  them 
UI  User  Interface:  accepts  user  input,  displays 
results 

lUI  Intelligent  User  Interface:  Provides  user  friendly 
interface,  contains  mechanisms  to  control  queries, 
communicates  with  all  KS 


As  stated  previously,  the  intelligence  in  lAMS  is  contained 
in  several  modules.  The  UI  uses  intelligence  to  preprocess 
the  user  input  to  determine  which  database  or  databases  to  query. 
After  database  determination  has  occurred,  the  KS  uses  code, 
including  prioritization  algorithms,  to  determine  which  table  or 
tables  to  query.  Additional  intelligence  is  inherent  in  the 
dynamic  SQL  code  generator.  The  next  two  sections  examine  in 
detail  the  design  architecture  of  the  two  intelligent  components 
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of  lAMS,  the  lUI  and  the  KS . 

3.1  Intelligent  User  Interface  Components 

The  C&C  module,  the  MKS,  and  the  UI  are  all  parts  of  the  lUI 
which  is  illustrated  in  Figure  2.  The  two  major  functions  of  the 
UI  module  are;  a)  to  accept  and  relay  information  from  the  user 
to  the  rest  of  the  system,  and  b)  to  accept  and  return 
information  from  the  system  to  the  user.  It  has  the  added 
requirement  to  interact  with  the  user  in  a  consistent  and  helpful 
manner . 


Figure  2  Intelligent  User  Interface  Design 


The  MKS  is  an  extension  or  combination  of  the  knowledge 
contained  in  all  individual  KSs.  Meta -knowledge  is  knowledge 
about  knowledge,  or  more  specifically,  in  lAMS  knowledge  about 
multiple  knowledge  sources.  The  C&C  module  has  the  capability 
and  mission  to  relay  intermediate  and  final  information  to  the  UI 
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based  on  observations  from  the  MKS  or  KS  modules.  This 
capability  increases  the  overall  functionality  and  responsiveness 
of  the  lAMS  system.  Intermediate  communications  take  the  form  of 
warning  or  informative  messages,  or  a  request  for  additional 
ication  from  the  user  based  on  pre-query  processing. 

3.2  Knowledge  Source  Components 

Each  database  in  lAMS  has  a  related  KS.  Each  KS  contains 
knowledge  or  information  about  the  underlying  database 
application  and  its  structure.  A  KS  also  contains  code  which 
allows  it  to  find  appropriate  information  and  determine  which 
table  or  tables  contain  a  particular  data  item.  Additional  code 
is  used  to  generate  specific  database  queries  and  send  them  to 
the  database  application.  The  components  of  a  KS  are  presented 
in  Figure  3 . 


Figure  3  Knowledge  Source  Module 
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An  active  knowledge  base  primarily  consists  of  frames  which 
contain  knowledge  about  the  database  structure.  Each  frame 
contains  an  entire  cross  reference  of  the  database  for  one  data 
element.  For  example,  a  frame  containing  data  about  the  data 
element  ssn  should  actually  be  a  view  of  the  database  according 
to  SSN.  It  contains  information  about  the  data  type  and  size  of 
SSN,  and  it  also  contains  information  about  whether  ssn  can  be 
null*,  whether  it  is  a  key  field,  and  names  of  all  the  tables  ssn 
occurs  in.  There  are  three  types  of  frames  stored  in  each 
knowledge  base;  table,  column,  and  index. 

The  first  time  a  KS  is  activated  the  knowledge  base  frames 
are  loaded  from  Oracle  tables  which  are  built  by  the  initial  KS 
construction  process.  The  tables  contain  primarily  the  same 
information  the  frames  contain,  but  in  a  different  format.  The 
frames  are  designed  for  efficiency  in  access  and  a  much  more 
complex  organizational  structure.  It  is  possible  to  cross 
reference  among  column,  table,  and  index  frames. 

The  function  performed  by  the  query  constructor  (QC)  is 
self-explanatory.  Input  passed  from  the  C&C  module  activates  the 
QC  which  contains  the  functionality  to  build  an  SQL  query. 

Because  the  prototype  databases  are  assumed  to  be  homogeneous 
(i.e.,  each  developed  using  Oracle),  the  QC  is  the  same  for  all 
databases.  The  QC  depends  on  information  contained  in  the 
knowledge  base  to  determine  which  table  or  tables  contain  the 

*  A  null  field  is  one  that  is  allowed  to  remain  blank  or 
empty.  This  means  the  data  value  a)  does  not  exist;  b)  is  not 
meaningful  for  the  particular  record;  or  c)  is  unknown. 
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target  data  and  if  a  relation  must  be  referenced  to  perform  the 
query. 

The  dynamic  SQL  module  (DSQL)  is  also  the  same  for  all 
Oracle  databases.  It  receives  the  constructed  query  and  connects 
to  the  appropriate  database.  It  translates  the  query  as 
necessary,  queries  the  database,  and  returns  data  (if  data 
found) ,  or  a  message  (if  no  data  found  or  error  occurred)  back  to 
the  QC. 

The  DSQL  must  be  able  to  handle  queries  only,  but  a 
multitude  of  different  queries  may  conceivably  be  processed.  Any 
legal  SQL  query  can  be  processed  by  the  DSQL,  and  it  is  limited 
only  by  the  intelligence  of  the  QC  construction  algorithm. 

4  Implementation  Methodology 

Intelligent  access  is  gained  through  a  three  phase  process. 
In  Phase  I,  the  MKS  is  searched  to  determine  which  database 
application  has  the  target  data.  The  user  input  is  then  passed 
to  the  application  KS  and,  in  Phase  II,  the  KS  is  searched  to 
determine  target  table{s).  In  Phase  III,  the  SQL  query  is 
actually  constructed  and  the  database  dynamically  queried.  In 
this  scenario,  intelligent  access  means  that  the  end  user  does 
not  have  to  know  where  the  data  resides. 

lAMS  implementation  is  accomplished  through  the  use  of 
several  high  level  languages.  Much  of  the  code  used  to 
accomplish  this  project  is  written  in  the  C  programming  language. 
Two  other  languages  are  used  to  access  the  database,  SQL  and 
Pro*C  (Oracle  Corporation) ,  and  Unix  script  files  are  used  as 
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necessary  for  utilitarian  purposes. 

SQL  is  a  standard  high-level  database  query  language  which 
is  used  for  a  number  of  relational  DBMS  including  Oracle  (Elmasri 
and  Navathe,  1989).  Pro-»C  is  a  C  language  precompiler  published 
by  Oracle  Corporation,  which  is  used  specifically  to  access 
Oracle  tables  using  a  C  interface  with  embedded  SQL  statements. 
Using  a  Pro*C/C  interface  adds  functionality  that  can  not  be 
obtained  by  using  generic  SQL  operations  alone. 

The  chosen  lAMS  window  interface  is  Motif.  The  original 
interface  was  written  in  X,  and  then  changed  to  Motif  for 
practical  reasons.  The  Motif  window  manager  adds  many  predefined 
user  friendly  functions  that  are  not  readily  available  in  X 
window  manager. 

4.1  Assumptions  and  Constraints 

For  the  purpose  of  developing  a  prototype,  the  following 
assumptions  and  constraints  are  made. 

Databases  are  implemented  in  Oracle  (homogeneous  Oracle  databases)  . 

Standard  naming  com.'ENTiONS  are  used  for  all  database  elements  . 

Database  entities  and  relationships  are  known. 

Prototype  model  will  allow  query  only,  i.e.,  no  updates  allowed. 

By  working  with  homogeneous  databases,  the  underlying 
methodology  can  be  developed  using  one  set  of  procedures  to 
interface  with  the  database  applications.  Heterogeneous 
databases  require  separate  interface  routines  for  each  DBMS  type 
accessed . 

Standard  naming  conventions  provide  a  quick  and  accurate 
means  of  inferring  inter-database  relationships  and  intra- 
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database  relationships.  The  major  premise^  of  the  naming 
standards  is  that  each  database  element  having  the  same  name  must 
refer  to  the  same  thing,  and  that  two  unlike  elements  may  not 
have  the  same  name . 

Database  entities  and  relationships  are  known  because  the 
application  expert  and  the  developer  are  the  same,  saving 
development  time  during  prototyping.  To  integrate  an  existing 
application  database  into  lAMS,  the  application  expert  would  be 
consulted  to  confirm  knowledge  about  the  application  that  is 
stored  in  the  lAMS  knowledge  base. 

The  principle  behind  nonintrusive  database  integration  is 
that  the  application  database  is  not  adversely  affected,  and  that 
the  access  is  query  only.  lAMS  implementation  fully  supports 
this . 

4.2  Development  Environment 

The  lAMS  prototype  is  developed  on  a  Unix-based  workstation 
running  SUN  OS  4.1A.  Oracle  version  6.0.30.3.1  DBMS  is  used  as 
the  relational  database  management  system  (RDBMS)  for  the 
database  applications  necessary  to  implement  the  prototype 
resulting  from  this  research. 

4 . 3  Prototype  Databases 

In  the  prototype  system  two  different  but  related  Oracle 
databases  were  created.  One  contains  personnel  data  and  the 
other  contains  vehicle  data.  The  relational  schema  and  entity 


^  Rule  1,  Army  Regulation  25-9  specifies  that  the  name  of  a 
data  element  is  always  the  saime  wherever  it  occurs. 
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relationship  (ER)  diagrams  for  both  the  personnel  and  vehicle 
applications  are  given  in  Appendix  A.  Data  used  in  both 
databases  are  fictitious  and  for  demonstration  purposes  only. 

The  Corps  of  Engineers  enforces  standard  naming  conventions 
{U  S  Army,  1989)  for  implementation  of  new  database  or 
information  systems,  so  the  lAMS  database  applications  conform  to 
the  major  premise  or  Rule  1  of  the  naming  standards  as  previously 
explained.  Using  the  standard  naming  conventions  makes  analyzing 
databases  easier  and  provides  additional  data  integrity  checking. 
Other  benefits  of  standard  naming  conventions  will  be  discussed 
further  in  the  conclusions  section. 

4.4  Knowledge  Source  Components 

The  KS  designed  and  used  for  lAMS  is  a  hybrid  structure, 
consisting  of  relational  database  tables,  knowledge  frames,  and 
attached  procedures  which  are  written  in  the  C  programming 
language.  The  process  used  to  construct  a  KS  is  refined  and 
automated,  thereby  providing  automated  construction  of  each  KS 
through  the  use  of  a  generic  set  of  code.  This  approach 
essentially  means  that  a  KS  can  be  generated  for  any  Oracle 
database'*  targeted  to  be  accessed  by  lAMS. 

After  the  target  databases  are  determined,  building  a 
knowledge  source  is  the  first  step  to  incorporating  a  database 

■*  A  KS  can  be  automatically  generated  for  any  Oracle  database 
that  conforms  to  standard  naming  conventions.  This  convention 
states  that  any  element  having  the  same  meaning  must  have  the  same 
name,  and  the  inverse  must  also  be  true.  If  standards  are  not 
followed,  a  synonym  list  or  database  mapping  must  be  created 
preparatory  to  KS  generation. 
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into  lAMS .  The  KS  contains  such  information  as  the  names  of  the 
application  tables,  columns,  and  indexes.  The  KS  also  captures 
the  relationships  between  tables  and  columns. 

Several  items  are  required  to  construct  a  KS  for  a  target 
Oracle  database  application.  The  application  name,  database 
location,  and  database  tablespace  name  must  be  known.  Resource 
and  connect  privilege  must  be  assigned  to  the  user  building  the 
KS,  and  that  user  must  also  have  access  to  the  application  system 
tables . 

Relying  on  standard  naming  conventions  and  Oracle  system 
tables,  the  basis  for  the  KS  is  built  through  a  series  of  SQL 
scripts.  The  generic  SQL  scripts  developed  to  analyze  the 
application  tables  determine  pertinent  information  about  the 
database  application,  and  create  a  series  of  reports  that  may  be 
used  to  verify  the  KS  data.  These  script  files  and  example 
reports  are  included  in  Appendix  B. 

All  database  indexes  are  analyzed  to  determine  if  they  are 
primary,  foreign,  and/or  composite  keys.  Keys  or  indexes  are 
used  for  several  reasons.  A  primary  reason  for  indexes  is  to 
facilitate  the  location  of  a  record  by  creating  an  index  on  a 
field  which  has  a  unique  value  for  each  record.  This  type  of  key 
is  called  a  primary  key. 

A  foreign  key  is  used  to  access  related  data  and  to  check 
data  integrity.  A  composite  key  is  made  up  of  more  than  one 
field  (Elmasri  and  Navathe,  1989),  e.g.,  last  and  first  name 
could  be  used  a  composite  key.  Information  about  keys  is 
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analyzed  and  kept  for  JAMS  to  facilitate  prioritization  of  user 
requests.  Locating  data  through  a  key  is  more  likely  to  be 
successful  than  with  a  nonkey  column,  or  a  null  one. 

All  database  fields  (columns)  are  examined  to  determine 
relationships  among  tables.  Statistics  are  gathered  on  the 
number  of  occurrences  of  a  column  name"',  data  type,  data  length, 
and  whether  or  not  a  field  is  allowed  to  be  null.  The  results 
are  retained  in  lAMS  tables  automatically  created  and  populated 
by  SQL  scripts.  The  JAMS  tables  are  the  first  component  of  a  KS 
and  they  are  stored  in  the  application  tablespace. 

Pro*C  and  C  code  (as  shown  in  Appendices  C  and  D)  is  used  to 
extract  JAMS  information  from  the  created  tables  to  construct 
frames.  There  are  three  frame  structures  used  for  a  KS ;  table, 
column,  and  index.  The  structure  for  each  frame  type  is 
illustrated  in  Figures  4. a,  4,b,  and  4.c.  Basic  information  that 
forms  each  frame  is  loaded  into  the  frame  structure  from  the 
tables.  These  frames  or  knowledge  base  form  the  second  component 
of  the  KS  structure. 

A  structural  view  of  the  KS  frames  is  produced  by  the  KS 
load  procedure.  This  view  may  be  used  by  an  application  expert 
to  verify  the  KS  frame  data.  Each  frame  is  constructed  as  a  tree 
and  the  individual  nodes  contain  both  single  data  elements  and 
doubly  linked  lists. 


^  This  provides  information  on  shared  columns,  which  implies 
relationships . 
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Figure  4. a  KS  Table  Frame  Structure 


Figure  4 .b  KS  Column  Frame  Structure 


Oelumn  | 

Figure  4.c  KS  Index  Frame  Structure 


The  third  component  of  the  KS  is  also  built  in  C,  and 
attached  to  the  KS  frames.  These  procedural  attachments  are  used 
to  search  a  related  frame  type  to  find  inf ormiation .  For  example, 
if  the  target  column  is  ssn,  the  column  frames  are  searched  until 
the  SSN  frame  is  found.  Then  data  stored  in  that  frame  are 
reviewed  to  deterndne  in  which  tables  the  element  ssn  occurs. 

Data  stored  in  the  target  column  frame  are  analyzed 
according  to  a  priority  scheme.  The  KS  looks  at  every  potential 
table  containing  the  target  column.  If  there  is  more  than  one 
table,  which  contains  the  target  column,  the  target  column 
characteristics  are  determined,  such  as: 

Is  the  target  column  a  key  field,  is  it  a  primary  key, 
foreign  key,  or  composite  key? 


18 


The  field  search  priority  is  assigned,  from  highest  to 
lowest,  as  follows: 

primary  key 
foreign  key 
single  field  key 
composite  key 
not  null 
null  allowed 

The  query  being  constructed,  based  on  the  priority  assigned  by 
the  search  algorithm,  is  designed  to  maximize  the  probability  of 
finding  the  target  element. 

The  table  frames  are  nr^'c  to  cross-reference  field 
availability,  in  the  event  a  join  column  is  needed  to  locate 
target  data.  A  join  column  is  a  field  that  the  target  fields 
both  have  in  common,  i.e.,  a  join  field  appears  in  the  same  table 
with  each  target,  and  can  be  used  to  build  access  to  the  target 
fields,  even  though  the  target  fields  are  not  located  in  a  common 
table . 

Two  other  C  modules  are  necessary  to  complete  the  KS 
functionality.  Although  not  a  part  of  the  knowledge  base,  this 
code  performs  two  essential  functions.  The  first  is  the  query 
constructor  (QC)  which  is  used  to  generate  an  SQL  query.  The 
second  module  is  a  dynamic  SQL  procedure  (DSQL)  which  processes 
the  query  constructed  and  actually  queries  the  databases.  Both 
of  these  modules  are  DBMS  specific. 

The  QC  consists  of  C  code  used  to  generate  an  SQL  query.  It 
accepts  input  from  the  C&C  and  sends  names  of  the  target 
column (s)  to  the  KS  search  code  to  locate  their  KS  frames.  When 
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the  frames  are  located,  they  are  searched  to  determine  the 
appropriate  table (s) .  If  a  relation  must  be  invoked  to  access 
the  target  data,  the  potential  relations  also  known  as  join 
columns,  are  displayed  to  the  user  so  an  appropriate  choice  can 
be  made . 

When  a  table  or  tables  with  their  related  column  names  are 
known,  they  are  sent  to  the  QC  with  any  specified  search 
constraints.  The  QC  builds  the  SQL  query  and  then  sends  it  to 
the  DSQL  module,  which  processes  the  query  and  returns  results. 
Results  are  passed  by  the  QC  back  to  the  C&C  portion  of  the  lUI . 

The  DSQL  module  is  written  in  PRO*C  (PRO*C  User's  Guide, 

1990) ,  and  accepts  an  SQL  statement  from  the  query  constructor. 

A  buffer  or  descriptor  area  is  prepared  to  accept  the  query 
results  from  the  database,  the  database  is  queried,  and  the 
results  are  passed  back  to  the  QC. 

4.5  Knowledge  Source  Implementation 

When  a  KS  is  invoked,  it  checks  for  the  existence  of  KS 
frame  data.  If  the  data  exist  in  a  related  data  file,  the  KS 
frames  are  automatically  initialized  from  the  file.  If  the  file 
does  not  exist,  the  KS  process  queries  the  lAMS  tables  in  the 
application  tablespace  and  builds  the  frames.  This  procedure  is 
followed  to  facilitate  reconstruction  of  the  KS  frames  if  changes 
are  made  to  the  database  application  structure.  The  SQL  scripts 
still  must  be  executed  to  reflect  structural  database  changes, 
thereby  automatically  reconstructing  the  lAMS  tables. 

This  process  complies  with  basic  software  engineering 
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principles,  because  it  reduces  the  number  of  steps  required  for 
regeneration  (maintainability) ,  and  reduces  the  potential  for 
error  (reliability) .  This  procedure  not  only  facilitates 
reconstruction  if  there  are  structural  changes,  but  also 
automatically  recreates  the  frame  data  file  if  it  is  erased  or 
missing . 

4.6  Intelligent  User  Interface  Components 

The  lUI  is  composed  of  three  primary  components.  The  user 
interface,  or  UI ,  is  the  portion  of  the  system  that  the  user 
interacts  with.  The  lAMS  communication  and  control  functions  are 
contained  in  the  C&C  module,  which  references  the  primary  or 
meta- (knowledge  source  )cnown  as  the  MKS . 

The  UI  consists  of  a  series  of  user-friendly  windows,  that 
may  be  manipulated  with  mouse  or  )ceyboard.  The  input  window, 
shown  in  Figure  5. a,  allows  the  user  to  enter  query  input  in  a 
prescribed  manner  and  operates  very  similarly  to  a  form.  Another 
window,  the  query  display  window  (Figure  5.b),  displays  database 
queries  as  they  are  built,  and  a  third,  the  results  window 
(Figure  5.c),  displays  the  cjuery  results.  Two  example  queries 
are  shown  in  Figure  5.b  and  their  results  in  Figure  5.c,  the 
input  for  the  last  query  in  shown  in  Figure  5. a.  The  window  code 
in  contained  in  Appendix  D. 
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Figure  5.b  User  Interface 
SQL  Display  Window 


Figure  5.c  User  Interface 
Query  Results  Window 
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The  prototype  version  of  lAMS  allows  the  user  to  enter  one 
or  two  target  columns.  There  is  optional  search  qualification 
{range  condition  and  operator)  allowed  for  either  or  both  of 
these.  If  the  target  data  is  located  in  the  same  table  the 
results  are  displayed  without  further  user  interaction. 

If  the  target  data  columns  are  in  different  tables  or 
databases,  a  prioritized  search  is  conducted  to  determine 
potential  relationships.  If  more  than  one  potential  relationship 
is  found,  the  user  is  allowed  to  choose  one  from  a  list  and  also 
to  enter  optional  qualification. 

The  C&C  module  directs  traffic,  coordinates  with  the  MKS  to 
determine  to  which  KS  to  send  a  request,  and  receives  input  from 
and  sends  output  to  the  UI.  This  module  also  keeps  track  of 
which  KS  has  been  sent  a  request,  and  handles  the  response  as  it 
occurs.  Data  files  are  used  to  store  formulated  queries  and 
query  results,  so  they  can  be  shared  by  the  different  modules.  A 
log  file  is  maintained  for  the  latest  user  session  which  provides 
an  audit  trail,  error  tracking,  and  system  evaluation. 

The  automation  of  KS  construction  allows  a  minimum  of  effort 
to  add  a  new  database  or  facilitate  changes  to  current  member 
databases.  It  also  forms  the  basis  for  automatic  generation  of 
the  MKS.  The  MKS  generation  is  accomplished  in  a  like  manner. 
Similar  to  the  KS,  it  is  also  a  hybrid  structure  consisting  of 
the  same  basic  structural  parts:  tables,  frames,  and  code.  The 
MKS  structure  is  conceptually  at  a  higher  level  because  it 
contains  information  about  all  lAMS  database  applications  and 
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relationships  among  them  without  lower  level  detail .  The  MKS  is 
organized  in  a  column  frame  similar  to  the  KS  column  frame  as 
presented  in  Figure  6. 


Figure  6  MKS  Column  Fraune  Structure 

All  relationships  in  a  database  occur  at  the  column  level 
and  that  is  essentially  all  that  is  necessary  to  determine  a 
relationship  when  standard  naming  conventions  are  employed. 

Detail  such  as  data  type  and  size  is  retained  in  the  MKS  to  allow 
high  level  verification  of  user  range  variables.  The  only  other 
MKS  information  stored  is  the  application  name  which  is  necessary 
to  determine  which  application  might  have  the  requested  data. 

4.7  Intelligent  User  Interface  Implementation 

In  the  current  implementation  methodology  the  KS  can  handle 
only  one  query  per  request.  The  MKS  can  process  multiple 
queries,  but  only  one  against  each  KS .  The  MKS  is  needed  as  a 
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means  of  determining  which  KS  to  channel  user  requests  to. 

Future  adaptations  should  allow  for  more  flexibility  in  choosing 
join  columns,  and  more  complex  queries,  with  additional  queries 
based  on  the  results  of  the  previous  one,  to  fully  exploit  co¬ 
relationships  . 

Each  knowledge  source  has  knowledge  of  a  particular 
database.  Knowledge  of  all  databases  is  necessary  at  a  higher 
level  to  be  able  to  determine  which  database  has  the  target  data. 
Therefore,  it  is  necessary  to  organize  a  higher  level  knowledge 
source  that  contains  knowledge  about  the  knowledge  sources. 

The  MKS  contains  meta- knowledge  about  the  KSs  and 
relationships  between  them.  The  MKS  is  built  from  all  KS 
modules,  and  is  a  separate  component  of  the  C&C  module.  The  C&C 
sends  a  req'uest  to  the  MKS  which  consists  of  target  column  name 
and  the  MKS  determines  which  KS(s)  to  invoke. 

The  C&C  module,  while  still  a  part  of  the  lUI ,  became  more 
clearly  delineated  during  prototype  implementation.  The  primary 
functions  of  the  UI  module  are  input  and  display  realized  through 
the  use  of  multiple  windows.  The  C&C  module  performs 
communication  between  the  UI  and  the  KS  modules. 

4.8  Implementation  Advantages 

One  of  the  major  implementation  advantages  of  the  lAMS 
prototype  is  its  conformance  to  software  engineering  methodology. 
There  are  many  software  engineering  principles  that  apply  to  the 
lAMS  development  process.  Most  of  the  code  in  lAMS  is  generic 
and  can  be  used  for  any  candidate  database  meeting  the  lAMS 
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qualifications . 

The  following  list  of  code  is  generic,  requiring  only  the 
database  application  name  for  differentiation; 

a)  SQL  database  analysis  scripts 

b)  KS  construction  code 

c)  Query  constructor  code 

d)  Dynamic  SQL  query  procedure 

e)  Entire  KS  executable  process 

Automated  construction  of  individual  knowledge  bases  and  MKS  is  a 
significant  implementation  advantage  over  interactive 
construction  of  each  KS  and  MKS. 

The  lAMS  interface  was  designed  to  promote  future  growth  and 
major  flexibility  in  allowing  distributed  communications  to 
^ult:iple  database  sites.  Although  the  prototype  is  developed  and 
demonstrated  on  one  machine,  the  prototype  application  databases 
reside  in  separate  tablespaces  and  a  minor  modification  to  the 
KS-database  interface  would  facilitate  remote  database  access 
using  SQL*Net\ 

The  design  assumes  each  KS  will  remain  centralized  on  the 
machine  containing  the  MKS  allowing  rapid  determination  of  target 
sites  and  local  data  integrity  verification.  This  capability  puts 
the  burden  of  processing  on  the  local  machine,  thereby  minimizing 
network  traffic,  impact  on  remote  machines  and  databases,  and 
probability  of  remote  error. 

lAMS  design  implementation  directly  supports  the  three  goals 
of  nonintrusive  access; 


^  Oracle  Corporation  network  protocol  tool. 
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1.  The  database  design  does  not  have  to  be  altered. 

2.  The  access  is  query  only,  allowing  no  updates. 

3.  The  design  minimizes  the  impact  multiple  access  has  on 
the  normal  database  performance. 

This  last  achievement  is  due  primarily  to  the  fact  that  query 
construction  is  done  on  the  local  machine  and  also  that  the  query 
construction  is  based  on  a  prioritization  of  which  columns  are 
most  likely  to  contain  target  data. 

More  information  is  stored  in  KS  tables  than  is  currently 
utilized.  This  additional  application  data  provide  flexibility 
for  future  growth.  Oracle  also  provides  a  wealth  of  application 
information  in  system  tables,  which  may  be  looked  on  as  a  virtual 
knowledge  source  in  itself. 

Another  major  advantage  of  lAMS  prototype  implementation  is 
the  use  of  standard  naming  conventions.  Strict  conformance  to 
standards  allows  for  rapid  and  automated  integration  of  a 
database  in  lAMS .  As  previously  stated,  if  standards  were  not 
followed,  a  synonym  table  must  be  constructed,  o’'  the  database 
names  modified  to  standards.  The  latter  option  is  normally  cost 
prohibitive  and  does  not  meet  nonintrusive  integration 
requirements,  because  once  the  names  are  changed,  all  database 
applications  must  be  modified  to  reflect  the  changes. 

4 . 9  Future  Work 

Performance  is  an  issue  that  was  considered  during  the 
design,  but  not  strongly  emphasized  during  prototype 
implementation.  A  modification  to  allow  for  parallel  KS 
processing  is  needed  for  full  implementation  of  multiple  large 
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databases.  The  KS  process  is  a  separate  executable  which  accepts 
the  database  name  and  other  input.  This  design  facilitates  the 
needed  modification. 

Post  query  processing  implementation  is  needed  to  provide 
full  CO- relational  capability.  More  intelligence  is  necessary  to 
provide  the  means  to  automatically  construct  a  query  based  on  the 
results  of  another. 

In  any  database  design  there  exists  the  potential  for  data 
dependent  database  structures.  While  it  is  scientifically 
desirable  from  a  conceptual  modelling  viewpoint  to  prevent 
structural  dependencies,  it  is  not  always  practical.  Even  though 
the  prototype  databases  chosen  were  deliberately  small,  one  such 
data  dependency  exists. 

In  the  PERSONNEL  database,  the  primary  key  of  the  personnel 
entity  is  ssn.  The  instructor  entity  is  a  subset  of  the  personnel 
entity,  therefore  ssn  in  instructor  should  be  a  foreign  key.  The 
automated  KS  construction  routine  does  not  have  the  intelligence 
to  determine  if  instructor  is  a  subset  of  personnel  or  vice  versa. 
Therefore,  it  records  ssn  as  a  primary  key  for  each  entity 
leading  to  potential  anomalies  when  queries  are  based  on  ssn. 

The  preprocessing  module  can  not  distinguish  priority  between 
INSTRUCTOR . SSN  and  PERSONNEL . SSN . 

The  preceding  situation  illustrates  the  potential  need  for  a 
tool  to  allow  an  application  expert  to  verify  KS  findings.  An 
application  expert  would  know  these  potentially  complex 
relationships,  and  could  adjust  the  knowledge  base  accordingly 


with  a  minimum  of  interaction. 

The  only  queries  currently  supported  in  the  lAMS  prototype 
are  simple  queries  to  one  table,  or  a  join  between  two  tables. 

The  tables  may  be  contained  in  the  same  application,  but  they  do 
not  have  to  be.  Future  expansions  might  include  a  means  of 
providing  additional  query  capabilities.  The  dynamic  SQL  module 
is  robust,  and  it  will  handle  any  legal  SQL  query.  The  query 
construction  module  would  have  to  be  modified  to  provide 
additional  intelligence  in  the  construction  routine. 

5  Conclusions 

Although  •  .iere  are  issues  to  resolve  concerning  automatic 
integration  of  existing  database  application  into  lAMS ,  the 
capab'.xity  of  accessing  multiple  database  through  the  use  of 
intelligence  is  not  only  conceptually  feasible  but  highly 
desirable.  The  lAMS  prototype  implementation  was  easier  to 
attain  partly  due  to  the  tight  constraints  placed  on  the  database 
applications . 

Automatic  KS  generation  was  made  feasible  through  the  use  of 
standard  naming  conventions.  While  these  conventions  are  desired 
for  future  systems,  they  are  not  always  strictly  interpreted  and 
completely  enforced  across  separate  applications.  Most  existing 
database  applications  were  built  before  the  standards  were 
published.  Therefore,  incorporating  existing  systems  into  an 
lAMS  network  (original  lAMS  goal)  is  not  as  automatic  as  it 
becomes  using  standard  names. 

Another  analysis  process  is  necessary  to  construct  a  synonym 
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table  for  nonstandard  systems  which  maps  or  cross  references 
relationships  among  database  applications.  Modification  to  the 
KS  generation  utilization  processes  is  also  necessary  to  use  the 
cross  reference. 

The  automated  construction  of  the  KS  and  MKS  also  revealed 
an  unexpected  benefit  of  standard  naming  conventions.  The 
conventions  facilitate  automated  data  integrity  checking.  The  KS 
construction  process  determines  if  there  are  conflicts  in  data 
type  and  size  for  a  data  element,  and  the  MKS  construction 
process  determines  any  conflicts  in  data  type  and  size  among 
multiple  databases.  This  discovery  makes  apparent  one  of  many 
possible  methods  of  automated  data  integrity  checking  among 
databases  built  using  the  standard  naming  conventions. 

Michael  Brodie  speaks  of  " interconnectivity''  as  being  the 
key  to  future  expansion  of  existing  databases  (Brodie,  1988) . 
There  is  currently  much  research  in  this  area,  and  the  research 
in  lAMS  and  other  recent  literature,  is  convincing  proof  that  the 
industry  is  motivated  in  this  investigation.  Networks  of  inter¬ 
related  databases  are  being  attempted  in  industry  and  government 
today.  Automated  integration  of  existing  databases,  as 
illustrated  by  lAMS,  provides  a  significant  contribution  to  this 
endeavor . 
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DATABASE  DESIGN 


Appendix  A  Database  Design 
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J^pendix  B  SQL  Script  Files 


lAMS  SQL  script  files 

The  purpose  of  this  table  is  to  document  the  SQL  scripts  used  to  extract  database 
application  data  for  Knowledge  Source  construction.  The  SQL  scripts  are  completely 
generic,  they  can  be  used  against  any  ORACLE  application  by  passing  in  the  tablespace 
name.  The  batch  script  used  to  invoke  the  analysis  process  is  edited  to  include  the 
ORACLE  tablespace,  userid  and  password  that  has  access  to  the  application  tablespace. 
Output  files  have  the  file  extension  .1st,  and  are  used  to  verify  the  results  of  the  SQL 
scripts.  All  scripts  are  included  in  this  appendix,  and  example  1st  files  are  included 
when  the  output  is  meaningful. 

FILE  NAME  PURPOSE  OUTPUT 

dbrpt.sql  SQL  script  that  first  drops  any  existing  lAMS  none 

tables,  and  then  starts  each  script  in  succession. 

Input  is  the  application  tablespace  name. 

info.sql  SQL  script  that  creates  table  IAMS_TAB_NAMES,  none 

which  contains  the  application  table  names. 

infol.sql  SQL  script  that  generates  listings  of  table  dbla.lst 

definitions,  columns  in  a  table,  tables  by  column,  dblb.lst 

table  indexes,  and  indexes  by  column  name.  Input  dblc.lst 

is  tablespace  name.  dbld.lst 

info2.sql  SQL  script  that  creates  table  IAMS_TAB_INFO,  which  db2.1st 

contains  column  info  such  as  data  type,  data  length, 
data  precision  and  whether  or  not  the  column  is 
allowed  to  be  NULL.  Output  is  used  to  check 
successful  run  of  script  only. 

info3.sql  SQL  script  that  creates  table  IAMS_IND_INFO,  dbS.lst 

which  contains  index  info  such  as  whether  the  key 
is  primary,  foreign,  composite,  and  the  columns 
comprising  the  key.  Output  is  used  to  check 
successful  run  of  script  only. 

info4.sql  SQL  script  that  generates  index  report,  containing  db4.1st 

info  on  key  classification.  Input  is  tablespace  name. 

infoS.sql  SQL  script  that  creates  table  IAMS_FK_STATS  which  dbS.lst 

contains  information  about  foreign  key  statistics. 

info6.sql  SQL  script  that  generates  a  report  on  foreign  db6.1st 

key  statistics.  Input  is  tablespace  name. 

infol.sql  SQL  script  generates  report  containing  index  dbl.lst 

statistics.  Input  is  tablespace  name. 

mks.sql  SQL  script  that  starts  meta  knowledge  scripts  in  none 

succession . 

mksl.sql  SQL  script  that  creates  table  MKS_TAB_NAMES  that  mksl.lst 

contains  table  names  from  all  databases. 

mks2.sql  SQL  script  that  creates  table  MKS_TAB_INFO  that  mks2.1st 

contains  columns  from  all  databases. 
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Appendix  B  SQL  Script  Files 


FILE  NAME  PORPOSE 

mksS.sql  SQL  script  that  creates  table  MKS_IND_INFO  th^'t 

contains  index  information  on  all  databases. 


OUTPUT 

mks3 . 1st 


mks  4 . sql 
mksS . sql 

mks6 . sql 


SQL  script  that  creates  table  MKS_FK_STATS  that 
contains  foreign  key  statistics  for  all  databases. 

SQL  script  that  creates  table  MKS_RELATIONS  that 
builds  and  stores  information  about  relationships 
among  databases. 

SQL  script  that  generates  a  report  on  foreign  key 
statistics . 


mks4 . 1st 


mks5 . 1st 


mks6 . 1st 


mks'^ .  sql 


SQL  script  that  generates  a  report  on  index 
statistics  . 


mks7 . 1st 
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^pendix  B 


SQL  Script  Files 


dbrpt.sql  Page  1 


/*  JUL  92  P  Wright  */ 

/*  script  file  to  kick  off  database  analysis  scripts  * 

/*  this  analysis  is  for  lAMS  research  to  determine  */ 

/♦  database  relationships  and  build  a  KS  basis  */ 

/♦  input  parameter  is  the  database  application  name  * 

set  termout  off 
set  echo  off 
set  feedback  off 
set  verify  off 
drop  table  iams_f k_stats 
/ 

drop  table  iams_ind_inf o 
/ 

drop  table  iams_tab_info 
/ 

start  info  ' &  1 ' ; 
start  infol  ' &  1 '  ; 
start  info2; 
start  info3; 
start  info4  ' &  1 ' ; 
start  infoS; 
start  inf o6  ' &  1 '  ; 
start  info7  'si'; 
exit 
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Appendix  B  SQL  Script  Files 


info.sql  Page  1 


/*  set  up  must  run  beiore  other  info  scripts  */ 

/*  juiy  92  p  wright  */ 

/*  save  application  table  names  to  iams_tab_names  */ 
:*  input  parameter  is  application  name  */ 

set  termout  off 

set  echo  off 
set  verify  off 
drop  table  iams_tdb_names 
/ 

create  table  iams_tab_names  ( 

application  char  (30)  NOT  NULL, 

tabie_name  char  (30)  NOT  NULL  ) 

I 

create  unique  index  tname  on  iams_tab_ndmes (table_name) 

insert  into  iams_tab_names 

(application, table_name) 

select  tablespace_name, table_name 

from  user_tables 

where  tablespace_name  =  '&!' 

and  table  name  =  '  lAMS  TAB  NAMES’ 
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Appendix  B  SQL  Script  Files 


infol.sql  Page  1 

/*  JUL  92  P  Wright  */ 

/*  determine  application  table  defns  and  */ 

/*  additional  info  about  columns  and  indexes  */ 

/*  input  parameter  is  application  name  */ 

set  termout  off 

set  echo  off 

set  feedback  0 

set  verify  off 

set  pages  60 

set  lin  80 

col  looktime  noprint  new_value  printtime 
col  table_name  format  A20  hea  'TABLE'  jus  C 

col  index_name  format  AlO  hea  'INDEX'  jus  C 

col  column_name  format  A20  hea  'COLUMN'  jus  C 
col  nullind  format  A8  hea  'NULL  ?'  jus  C 
col  dtype  format  A18  hea  'DATA  TYPE'  jus  C 
bre  on  table_name  ski  1 
spool  dbla 

tti  left  printtime  center  ' lAMS  &1  DB  -  TABLE  DEFINITIONS'  - 
right  'PAGE:'  format  999  sql.pno  ski  3 
select  to_char  (sysdate ,  ' MON"-''DD"-"Yy' )  looktime, 
table_name,  column_name, 

data_typeir(  '  1  I to_char (data_length, '  999' )  N '  )'  dtype 
decode (nullable, 'N' , 'NOT  NULL' , '  NULL  ')  nullind 
from  all_tab_columns 
where  table_name  in 

(select  table_name 
from  iams_tab_names) 
order  by  2,3 
/ 

spool  off 

bre  on  column_name  ski  1 
spool  dblb 

tti  left  printtime  center  ' lAMS  &1  DB  -  TABLES  BY  COLUMNS'  - 
right  'PAGE:'  format  999  sql.pno  ski  3 
select  to_char (sysdate, 'MON”-"DD"-"YY' )  looktime, 
column_name,  table_name, 

data_type  t  I '  (  'll to_char (data_length, '  999' )  I  I '  ) '  dtype 
decode (nullable, 'N' , 'NOT  NULL' , '  NULL  ')  nullind 
from  all_tab_columns 
where  table_name  in 

(select  table_name 
from  iams_tab_names ) 
order  by  2,3 
/ 

spool  off 

bre  on  table_name  ski  2  on  index_name  ski  1 
spool  dblc 

tti  left  printtime  center  ' lAMS  &1  DB  -  TABLE  INDEXES  '  - 
right  'PAGE:'  format  999  sql.pno  ski  3 
select  to_char  (sysdate, 'MON"-''DD”-"YY' )  looktime, 
table_name,  index_name,  column_name 
from  al l_ind_columns 

where  table_name  in 

(select  table_name 
from  iams  tab  names) 
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infol.sql  Page  2 


order  by  2,3,4 

/ 

spool  off 

bre  on  column_name  ski  2  on  table_name  ski  1 
spool  dbld 

tti  left  printtime  center  ' lAMS  &1  DB-  INDEXES  BY  COLUMNS' 
right  'PAGE:'  format  999  sgl.pno  ski  3 
select  to_char (sysdate, ' MON"-"DD"-"YY' )  looktime, 
column_name,  table_name,  index_name 
from  all_ind_columns 
where  table_name  in 

(select  table_name 
from  iams_tab_names) 
order  by  2,3,4 
/ 

spool  off 
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dbla.lst  Page  1 


AUG-08-92  lAMS  VEHICLE  DB  -  TABLE  DEFINITIONS 


TABLE 


COLUMN  DATA  TYPE 


MUNITIONS 

LOCATION 

CHAR( 

8  ) 

MUMODEL 

CHAR( 

6  ) 

MUQNTY 

NUMBER ( 

22 

MUTITLE 

CHAR( 

15  ) 

MUWGT 

NUMBER ( 

22 

MUNITIONS_TRAINING 

CRSNO 

CHAR  i 

6  / 

MUMODEL 

CHAR  ( 

6  ) 

STATIC_VEHICLE 

VEMANU 

CHAR( 

30  ) 

VEMODEL 

CHAR( 

6  ) 

VETITLE 

CHAR( 

15  ) 

VEHICLE 

DEPLOY  PRIO 

NUMBER ( 

22 

LOCATION 

CHAR( 

8  ) 

VECAP 

NUMBER ( 

22 

VEMODEL 

CHAR( 

6  ) 

VESERIAL 

CHAR( 

6  ) 

VETITLE 

CHAR  ( 

15  ) 

VEHICLE_CREW 

CRSNO 

CHAR  ( 

6  ) 

VEMODEL 

CHAR( 

6  ) 

VEQNTY 

NUMBER ( 

22 

VEHICLE_MUNITIONS 

MUMODEL 

CHAR  ( 

6  ) 

VEMODEL 

CHAR  ( 

6  ) 

VMQNTY 

NUMBER ( 

22 

PAGE :  1 


NULL  ? 


NOT  NULL 
NOT  NULL 
NOT  NULL 
NULL 
NULL 

NOT  NULL 
NOT  NULL 

NOT  NULL 
NOT  NULL 
NOT  NULL 

NULL 
NOT  NULL 
NOT  NULL 
NOT  NULL 
NOT  NULL 
NULL 

NOT  NULL 
NOT  NULL 
NOT  NULL 

NOT  NULL 
NOT  NULL 
NOT  NULL 
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dblb.lst  Page  1 


AUG-08-92 


lAMS  vciilCLE  DB  -  TABLES  BY  COLUMNS 


PAGE: 


COLUMTJ 

TABLE 

DATA  TYPE 

NULL  ? 

CRSNO 

MUNITIONS  TRAINING 

CHAR( 

6  ) 

NOT  NULL 

VEHICLE_CREW 

CHAR  ( 

6  ) 

NOT  NULL 

DEPLOY  PRIO 

VEHICLE 

NUMBER ( 

o  o  \ 

»-  ! 

NULL 

LOCATION 

MUNITIONS 

CHAR( 

8  ) 

NOT  NULL 

VEHICLE 

CHAR  ( 

8  ) 

NOT  NULL 

MUMODEL 

MUNITIONS 

CHAR  ( 

6  ) 

NOT  NULL 

MUNITIONS  TRAINING 

CHAR  ( 

6  ) 

NOT  NULL 

VEHICLE_MUNITIONS 

CHAR( 

6  ) 

NOT  NULL 

MUQNTY 

MUNITIONS 

NUMBER ( 

22  ) 

NOT  NULL 

MUTITLE 

MUNITIONS 

CEAR( 

15  ) 

NULL 

MUWGT 

MUNITIONS 

NUMBER ( 

22  ) 

NULL 

VECAP 

VEHICLE 

NUMBER  < 

22  ) 

NOT  NULL 

VEMANU 

STATIC_VEuICLE 

CHAR( 

30  ) 

NOT  NULL 

VEMODEL 

STATIC  VEHICLE 

CHAR( 

6  ) 

NOT  NULL 

VEHICLE 

CHAR( 

6  ) 

NOT  NULL 

VEHICLE  CREW 

CHAR( 

6  ) 

NOT  NULL 

VEHICLE_MUNITIONS 

CHAR  ( 

6  ) 

NOT  NULL 

VEQNTY 

VEHICLE_CREW 

NUMBER  ( 

22  ) 

NOT  NULL 

VESERIAL 

VEHICLE 

CHAR  ( 

6  ) 

NOT  NULL 

VETITLE 

STATIC  VEHICLE 

CHAR( 

15  ) 

NOT  NULL 

VEHICLE 

CHAR  ( 

15  ) 

NULL 

VMQNTY 

VEHICLE  MUNITIONS 

NUMBER ( 

22  ) 

NOT  NULL 
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AUG-08-92 

TABLE 

MUNITIONS 

MUNITIONS_TRAINING 

STATIC_VEHICLE 

VEHICLE 

'.THICLE_CREW 

VEHICLE  MUNITIONS 


dblc.lst  Page  1 


lAMS  VEHICLE  DB  -  TABLE  INDEXES  PAGE 

INDEX  COLUMN 

MUN  MUMODEL 

MUTRN  CRSNO 

MUMODEL 


STVH  VEMODEL 

VEH  VESERIAL 

VHMOD  VEMODEL 

VCRS  CRSNO 

VEMODEL 


VECAP  MUMODEL 

VEMODEL 


47 


J^pendix  B  SQL  Script  Files 

dbld.lst  Page  1 

AUG-08-92  lAMS  VEHICLE  DB-  INDEXES  BY  COLUMNS  PAGE:  1 

COLUMN  TABLE  INDEX 


CRSNO 

MUNITIONS_TRAINING 

MUTRN 

v'EHICLE  CREW 

VCRS 

MUMODEL 

MUNITIONS 

MUN 

MUNITIONS_TRAINING 

MUTRN 

VEHICLE_MUNITIONS 

VECAP 

VEMODEL 

STATIC_VEHICLE 

STVH 

VEHICLE 

VHMOD 

VEHICLE_CREW 

VCRS 

VEHICLEJ-IUNITIONS 

VECAP 

VESERIAL 

VEHICLE 

VEH 
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info2.sql  Page  1 

/*  JUL  92  P  Wright  */ 

/*  save  table  names  &  column  names  */ 

spool  db2 

drop  table  IAMS_TAB_INFO 

create  table  IAMS_TAB_INFO  as 
select  table_name,  cQlumn_name,  data__type 
data_precision,  nullable 
from  all_tab_columns  ate 
where  ate . table_nam6  in 

(select  table_name 
from  iams_tab_names) 

comm.it ; 

drop  index  IAMS_TAB_INFO_INDX 
/ 

create  unique  index  IAMS_TA3_INF0_INDX  on 
(column_name,  table_name) 

commit ; 
spool  off 


data_length, 


lAMS  TAB  INFO 
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info3.sql  Page  1 

/»  JUL  92  P  Wright  */ 

/*  capture  key  relationships  in  a  database  application  */ 
set  termout  off 
set  echo  off 
spool  db3 

drop  table  iams_ind_inf o 

/ 

create  table  iams_ind_inf o 

(table_name  ch.-r(30), 

index_name  char  (30), 

primary  char, 

foreign  char, 

composite  char, 

uniqueness  char, 

column  name  char  (30)) 

/  ~ 

insert  into  iams_ind_inf o 

(table_name,  index_name,  column_name) 

select  table_name,  index_name,  column_name 

from  all_ind_columns 

where  table_name  in 

(select  table__name 
from  iams_tab_names) 

/ 

commit ; 

update  iams_ind_info 

set  primary  =  ' Y' , uniqueness  =  'Y' 

where  index_name  in 

(select  index_name 
from  user_indexes  a 
where  uniqueness  =  'UNIQUE') 
and  table_name  in 

(select  table_name 
from  iams_tab_names) 

/ 

commit ; 

update  iams_ind_inf o 
set  composite  =  'N' 
where  index_.  ame  in 

(select  index_name 
from  user_indexes  a 
where  1  = 

(select  count  (ir.de>;_name) 
from.  al  l_ind_columns  b 
where  a.index_name  =  b. index_name)  ) 
and  table_name  in 

(select  tabie_name 
from  iams_tab_names) 

commit ; 

update  iams_ind_inf o 
set  foreign  =  'N' 
where  primary  =  'Y' 
and  composite  =  'N' 

/ 

commit ; 
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update  iains_ind_inf o 

set  primary  =  ' N' , uniqueness  =  'N' 
where  primary  is  NULL 

/ 

commit ; 

update  iams_ind_inf o 
set  composite  =  'Y' 
where  composite  is  NULL 

/ 

commit ; 

update  iams_ind_info 
set  foreign  =  'Y' 
where  column_name  in 

(select  a . column_name 

from  iams_ind_inf o  a,  iams_ind_inf o  b 
where  a. foreign  is  NULL 
and  a . column_name  =  b . column_name 
and  a.table_name  <>  b.table_name 
and  b. primary  =  'Y' 

and  b. foreign  =  'N') 

and  foreign  is  NULL 
/ 

commit ; 

update  iams_ind_info 
set  foreign  =  'N' 

where  foreign  is  NULL 

/ 

commit ; 

create  index  IAMS_IND_INF0_IND_1  on  iams_ind_infc (index_name) 

/ 

commit ; 
spool  off 
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/*  JUL  92  P  Wright  */ 

/*  reports  on  a  database  application  */ 

/*  input  parameter  is  the  application  name  */ 

set  termout  off 

set  echo  off 

set  feedback  0 

set  verify  off 

set  pages  60 

set  lines  80 

col  table_name  format  a20  hea  'TABLE'  jus  C 
col  column_name  format  al5  hea  'COLUMN'  jus  C 
col  index_name  format  a8  head  ' INDEX'  jus  C 
col  primary  format  al  hea  'PRIMARY'  jus  C 
col  foreign  format  a7  hea  'FOREIGN'  jus  C 
col  composite  format  a9  hea  'COMPOSITE'  jus  C 
col  uniqueness  format  a6  hea  'UNIQUE'  jus  C 
bre  on  table_name  ski  1 
spool  db4 

tti  center  'JAMS  il  DB  -  KEY  STATISTICS'  - 

right  'PAGE:'  format  999  sql.pno  ski  3 
select  table_name,  column_name,  index_name, 

primary,  foreign,  composite,  uniqueness 
from  iams_ind_info 
order  by  table_name,  index_name 
/ 

spool  off 
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TABLE 

MUNITIONS 

MUNITIONS_TRAINING 

STATIC_VEHICLE 

VEHICLE 

VEHICLE_CREW 

VEHICLE  MUNITIONS 


db4.1st  Page  1 


lAMS  VEHICLE  DB  -  KEY  STATISTICS 


PAGE :  I 


COLUMN 

INDEX 

PRIMARY 

FOREIGN 

COMPOSITE  UNIQUE 
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MUN 

Y 

N 

N  Y 

MUMODEL 

MUTRN 

Y 

Y 

Y  Y 

CRSNO 

MUTRN 

Y 

N 

Y  Y 

VEMODEL 

STVH 

Y 

N 

N  Y 

VESERIAL 

VEH 

Y 

N 

N  Y 

VEMODEL 

VHMOD 

N 

Y 

N  N 

VEMODEL 

VCRS 

Y 

Y 
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CRSNO 

VCRS 

Y 

N 

Y  Y 

VEMODEL 
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Y 

Y 

Y  Y 

MUMODEL 

VECAP 

Y 

Y 

Y  Y 
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/*  JQL  92  P  Wright  */ 

/*  capture  foreign  key  stats  for  a  database  application  */ 
set  termout  off 
set  echo  off 
spool  dbS 

drop  table  iams_fk_stats; 
commit ; 

create  table  iams_fk_stats 

(table_name  char<30), 

nbr_cols  number (5), 

nbr_shared  number (5), 

nbr_fks  number (5)) 

/ 

insert  into  iams_fk_stats 

(table_name,  nbr_ccl£,  nbr_shared,  nbr_fks) 
select  table_name,  0,  0,  0 
from  iams_tab_names 
/ 

commit ; 

create  index  STATS_IND  on  iams_fk_stats (table  name) 

/ 

/ 

commit ; 

update  iams_fk_stats  fs 
set  fs.nbr_cols  = 

(select  count  ( i . tabi€_name) 

from  iams_tab_info  i 

where  i. table  name  =  f s . table_name) 

/ 

commit ; 

update  iams_f k_stat s  fs 
set  f s . nbr_shared  = 

(select  count ( i . table_name) 
from  iams_tab_inf o  i 

where  i.table_name  =  fs.table__name 
and  exists 

(select  'x' 

from  iams_tab_inf o  i2 

where  i2 . column_name  =  i . column_name 

and  i2 . table_name  <>  i . table_name) ) 

/ 

commit ; 

update  iams_f k_stat s  fs 
set  fs.nbr_fks  = 

(select  count ( i . index_name) 

from  iams__ind_info  i 
where  i.table_name  =  f s . table_name 
and  i. foreign  =  'Y'  ) 

/ 

commit ; 
spool  off 
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/*  JUL  92  P  Wright  */ 

/*  report  foreign  key  statistics  */ 

/*  input  parameter  is  the  application  name  */ 

set  termout  off 

set  echo  off 

set  feedback  0 

set  verify  off 

set  pages  60 

set  lines  80 

col  table_name  format  A20  hea  'TABLE'  jus  C 

col  nbr_cols  hea  'NBR  COLS'  jus  C 

col  nbr_shared  hea  'NBR  COMMON  COLS'  jus  C 

col  nbr_fks  hea  'NBR  FKS'  jus  C 

bre  on  table_name  ski  1 

spool  db6 

tti  center  ' lAMS  &1  DB  -  INDEX  STATS  BY  TABLE'  ~ 
right  'PAGE:'  format  999  sql.pno  ski  3 
select  table_name,  nbr_cols,  nbr_shared,  nbr_fks 
from  iams_f k_stats 

order  by  table_name 
/ 

spool  off 
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lAMS  VEHICLE  DB  -  INDEX  STATS  BY  TABLE 


TABLE 

MUNITIONS 

MUNITIONS_TRAINING 
STATIC_VEHICLE 
VEHICLE 
VEKICLE_CREW 
VEHICLE  MUNITIONS 


NBR  COLS 


3 

6 

3 

3 


NBR  COMMON  COLS 
2 
2 
2 
3 
2 
2 


NBR  FKS 

0 

1 

0 

1 


PAGE:  1 
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/*  JUL  92  P  Wright  */ 

/*  report  on  index  stats  */ 

/*  input  parameter  is  application  name  */ 

set  termout  off 

set  echo  off 

set  feedback  0 

set  verify  off 

set  pages  60 

set  lines  80 

spool  db? 

col  column_name  format  a20  hea  'COLUMN'  jus  C 
col  table_name  format  a20  hea  'TABLE'  jus  C 
col  index_name  format  alO  hea  'INDEX'  jus  C 
col  looktime  format  alO  hea  'DATE'  jus  C 
col  uniqueness  format  a9  hea  'UNIQUE'  jus  C 
bre  on  column_name  ski  2 
bre  on  table_name  ski  1 

tti  left  printtime  center  ' lAMS  41  DB  -  INDEXES  BY 
right  'PAGE:'  format  999  sql.pno  ski  3 
select  to_char (sysdate, 'MON”-"DD"-"yY' )  looktime, 
a .column_name,  a . table_name,  a , index_name,  b 
from  ail_ind_columns  a,  user_indexes  b 
where  a.table_name  =  b.table_name 

and  a . index_owner  =  b.table_owner 

and  a.index_name  =  b.index_name 

and  a.table_name  in 

(select  table_name 
from  iams_tab_names) 
order  by  2,3,4 
/ 

spool  off 

/ 


COLUMNS'  - 

uniqueness 
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AUG-08-92 

lAMS  VEHICLE  DB  - 

INDEXES  BY 

COLUMNS 

COLUMN 

TABLE 

INDEX 

UNIQUE 

CRSNO 

MUNITIONS_TRAINING 

MUTRN 

UNIQUE 

CRSNO 

VEHICLE_CREW 

VCRS 

UNIQUE 

MUMODEL 

MUNITIONS 

MUN 

UNIQUE 

MUMODEL 

MUNITIONS  TRAINING 

MUTRN 

UNIQUE 

MUMODEL 

VEHICLE_MUNITIONS 

VECAP 

UNIQUE 

VEMODEL 

STATIC_VEHICLE 

STVH 

UNIQUE 

VEMODEL 

VEHICLE 

VHMOD 

NONUNIQUE 

VEMODEL 

VEHICLE_CREW 

VCRS 

UNIQUE 

VEMODEL 

VEHICLE_MUNITIONS 

VECAP 

UNIQUE 

VESERIAL 

VEHICLE 

VEH 

UNIQUE 

PAGE: 
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/*  august  92  p  wright  */ 

/*  script  file  to  kick  off  database  analysis  scripts  */ 

/■*  this  analysis  is  for  lAMS  research  to  determine  */ 

/*  application  relationships  and  build  a  MKS  basis  */ 

set  termout  off 

set  echo  off 

set  feedback  off 

set  verify  off 

start  mksl; 

start  mks2; 

start  mks3; 

start  mks^; 

start  mks5; 

start  mks6; 

start  mksl; 

start  mks8; 

exit 
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/*  set  up  must  run  before  other  info  scripts  */ 

/*  july  92  p  wright  */ 

/*  save  application  table  names  to  MKS_TAB_NAMES  */ 

set  termout  off 

set  echo  off 

set  verify  off 

spool  mksl 

drop  table  MKS_TAB_NAMES 

/ 

create  table  MKS_TAB_NAMES  ( 

application  char (30)  NOT  NULL, 
table_name  char (30)  NOT  NULL  ) 

/ 

create  u'^ique  index  micname  on  MKS  TAB  NAMES  (application,  table_name) 
/ 

/■*  get  table  names  from  PERSONNEL  application  *  / 
insert  into  MKS_TAB_NAMES 

(application, table_name) 

select  application, table_name 
from  p_tnames 

/ 

/*  get  table  names  from  VEHICLE  application  */ 
insert  into  MKS__TAB_NAMES 

(application, table_name) 

select  application, table_name 
from  v_t names 

commit 
spool  off 
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/*  JUL  92  P  Wright  */ 

/*  save  table  names  &  column  names  */ 

spool  mks2 

drop  table  MKS_TAB_INFO 

/ 

create  table  MKS_TAB_rNFO  as 

select  a, application, b.table_name,  b.column_name,  b.data_type,  b . data_length 
b . data_precision,  b. nullable 
from  MKS_tab_names  a,  p_tinf  b 
where  a . application  =  'PERSONNEL' 
and  a,table_name  =  b.table_name 
/ 

commit 

/ 

insert  into  MKS_TAB_INFO 

select  a. application, b.table_name,  b.column_name,  b.data_type,  b . data_length 
b.data_precision,  b. nullable 
from  MKS_tab_names  a,  v_tinf  b 
where  a . application  =  'VEHICLE' 
and  a.table_name  =  b.table_name 
/ 

drop  index  MKS  TINF  INDX 

/ 

create  unique  index  MKS_TINF_INDX  on  MKS_TAB_INFO 
(application,  table_name,  column_name> 

/ 

commit 

/ 

spool  off 
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/*  JUL  92  P  Wright  */ 

/*  save  table  names  &  column  names  */ 

spool  mks3 

drop  table  MKS_IND_INFO 

/ 

create  table  MKS_IND_INFO  as 

select  a. application, b.table_name,  b. index_name,  b. primary, 
b. composite,  b . uniqueness,  b . column_name 
from  MKS_tab_names  a,  p_iinf  b 
where  a . application  =  'PERSONNEL' 
and  a.table_name  =  b. table  name 
/ 

commit 

/ 

insert  into  MKS_IND_INFO 

select  a. application, b.table_name,  b. inde.x_nanie,  b. primary, 
b. composite,  b . uniqueness,  b.column_name 
from  MKS_tab_names  a,  v_iinf  b 
where  a . application  =  'VEHICLE' 
and  a.table_name  =  b. table  name 
/ 

drop  index  MKS_IINF  INDX 

/ 

create  unique  index  MKS_I INF_INDX  on  MKS_IND_INFO 
(application,  table_name,  column_name  ) 

/ 

commit 

/ 

spool  off 


b . foreign. 


b. foreign. 
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I*  JUL  92  P  Wright  */ 

/*  capture  foreign  key  stats  for  a  database  application  */ 
set  termout  off 
set  echo  off 
spoo-1  mks4 

drop  table  MKS_FK_STATS 
commit 


table 

MKS  FK 

STATS 

(application 

char ( 30 ) , 

table_ 

name 

char (30) , 

ribr 

cols 

nutiber  ( 5 )  , 

nbr_ 

shared 

number  (5)  , 

nbr 

f  ks 

numocr  (5)  ) 

commit 

create  index  MSTATS_IND  on  MKS_FK_STATS (application, table_Rame) 
commit 

insert  into  MK3_Ff'_STATS 

select  '  PERSONNEL' ,  table_narr.e,  nbr_cols,  nbr_shared,  nbr_fk 
from  P_fks 

commit 

insert  intc  MK5_FK_STATS 

select  '  v'EHICLE' ,  table_name,  nbr_cols,  r.br_shared,  nbr_fks 
from.  v_fks 

commit 

SpOCl  CO f 
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/*  script  file  to  capture  master  relations  between  applications  */ 
july  92  p  Wright  */ 

set  termout  off 
set  echo  off 
spool  mks5 

drop  table  MKS_RELATIOi:S 

/ 

create  table  MKS_RELATIONS ( 

CQlumn_name  char  (30)  NOT  NULL, 
super_key  chard)  , 
key  char  ( 1 )  , 

nbr_apps  number  , 
nbr_occurs  number  ) 

drop  index  mkrel 

create  unique  index  mkrel  on  MKS  RELATIONS (column  name) 

/ 

commit 

/ 

insert  into  MK£_RELATIONS 

(column_name, super_key, key, nbr_apps, nbr_occurs) 
select  distinct  column_name, NULL, NULL, 0 , 0 
from  MKS_TAB_INFO 

commit 

/ 

update  MKS_RELATIONS 
set  key  =  'Y' 
where  column_name  in 

(select  distinct  column_name 
from  MKS_IND_INFO  ) 

/ 

commit 

/ 

update  MKS_RELaTIONS 

set  super_key  -  'Y' 
where  column_name  in 

(select  distinct  a. column  name 
from  MKS_INE_INF0  a,  MKS_IND_INFO  b 
where  a . column_name  =  b . column_name 
and  a .application  <>  b . appl icat ion  ) 

commit 

update  MKS_RELATI0NS  M 
set  nbr  occurs  = 

(select  NVL (count (column_name) , 0) 
from  MFS_TAB_INF0  a 

where  a. column  name  =  M. column  name  ) 

/ 

commit 

update  MKS_RELATI0NS  M 
set  nbr_apps  = 

(select  NVL (count  (dist inct  a . appl icat ion) , 0 ) 
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from  MKS_TAB_INFO  a,  MKS_TAB_INFO  b 

where  a . column_name  =  b.column_name 

and  a . applicat ion  <>  b. application 

and  a . column_name  =  M. oolumn_name 

group  by  a . column_name  ) 

/ 

commit 

/ 

spool  off 
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/*  JUL  92  P  Wright  */ 

/*  report  foreign  key  statistics  */ 

set  termout  off 

set  echo  off 

set  feedback  0 

set  verify  off 

set  pages  60 

set  lines  80 

col  application  format  A12  hea  'APPLICATION'  jus  C 

col  table_name  format  A20  hea  'TABLE'  jus  C 

col  nbr  cols  hea  ' NBR  COLS'  jus  C 

col  nbr  shared  hea  'NBR  COMMON  COLS'  jus  C 

col  nbr_fks  hea  'NBR  FKS'  jus  C 

bre  on  table_name  ski  1 

spool  mks6 

tti  center  ' lAMS  MKS  -  INDEX  STATS  BY  TABLE'  - 
right  'PAGE:'  format  999  sql.pno  ski  3 
select  table  name,  nbr_cols,  nbr_shared,  nbr_fks 
from  mks_fk_stats 
order  by  application,  table_name 
/ 

spool  off 
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lAMS  MKS  -  INDEX  STATS  BY  TABLE 


TABLE 

COURSE 

INSTRUCTOR 

PERSONNEL 

PERSONNEL_TRAINING 

MUNITIONS 

MUNITIONS_TRAINING 
STATIC_VEHICLE 
VEHICLE 
VEHICLE_CREW 
VEHICLE  MUNITIONS 


NBR  COLS 

3 

4 
7 
3 

5 
2 
3 

6 
3 
3 


NBR  COMMON  COLS 
1 
4 
4 
2 
2 
2 
2 
3 
2 
2 


NBR  FKS 

0 

0 

0 

2 

0 

0 

1 


PAG 


67 


Appendix  B  SQL  Script  Files 


Aug  13  17:52  1992  mks7.sql  Page  1 


/*  JUL  92  F  Wright  */ 

/*  reports  on  a  database  application  * / 

/*  input  parameter  is  the  application  name  */ 

set  termout  off 

set  echo  off 

set  feedback  0 

set  verify  off 

set  pages  60 

set  lines  90 

col  application  format  al2  hea  'APPLICATION'  jus  C 

col  table_name  format  al8  hea  'TABLE'  jus  C 

col  column_name  format  alO  hea  'COLUMN'  jus  C 

col  index_name  format  a8  head  ' INDEX'  jus  C 

col  primary  format  a7  hea  'PRIMARY'  jus  C 

col  foreign  format  a7  hea  'FOREIGN'  jus  C 

col  composite  format  a9  hea  'COMPOSITE'  jus  C 

col  uniqueness  format  a6  hea  'UNIQUE'  jus  C 

bre  on  table_name  ski  1 

spool  mks7 

tti  center  ' lAMS  MKS  DE  -  KEY  STATISTICS'  - 
right  'PAGE:'  format  999  sql.pno  ski  3 
select  application,  table_name,  column_name,  index_name, 
primary,  foreign,  composite,  uniqueness 
from  mks_ind_info 

order  by  application,  table  name,  index  name 
/  “  “ 
spool  off 
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lAMS  MKS  DB  -  KEY  STATISTICS  PAGE 


APPLICATION 

TABLE 

COLUMN 

INDEX 

PRIMARY 

FOREIGN 

COMPOSITE 

UNIQUE 

PERSONNEL 

COURSE 

CRSNO 

CNO 

Y 

N 

N 

Y 

PERSONNEL 

INSTRUCTOR 

SSN 

INS 

Y 

N 

N 

Y 

PERSONNEL 

PERSONNEL 

SSN 

PER 

Y 

N 

N 

Y 

PERSONNEL 

PERSONNEL  TRAINING 

SSN 

FTR 

Y 

Y 

Y 

Y 

PERSONNEL 

CRSNO 

FTR 

Y 

V 

V 

Y 

'v-EKICLE 

MUNITIONS 

MUMODEL 

MUN 

Y 

N 

N 

Y 

'v^HICL,-. 

MUNITIONS  TRAINING 

MUMODEL 

MUTRN 

Y 

Y 

V 

Y 

\^HICL>. 

CRSNO 

MUTRN 

Y 

N 

Y 

Y 

'v-EHICI  E 

STATIC__VEHICLE 

VEMODEL 

STVH 

Y 

N 

N 

Y 

VEHIC’  F, 

VEHICLE 

VESERIAL 

VEH 

Y 

N 

N 

Y 

V'EHICIE 

VEMODEL 

VHMOD 

N 

Y 

N 

N 

VEHICI 0 

VEHICLE  CREW 

VEMODEL 

VCRS 

Y 

Y 

Y 

Y 

'/EHIC:  E 

CRSNO 

VCRS 

Y 

N 

Y 

Y 

'vehicle 

VEHICLE  MUNITIONS 

VEMODEL 

VECAP 

Y 

Y 

Y 

Y 

'vTHIC:  E 

MUMODEL 

VTCAP 

V 

Y 

Y 

Y 
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Appendix  C  Pro»C  Code 


lAMS  Pro*C  Source  Code 


The  purpose  of  this  table  is  to  describe  the  functionality  of  the  individual 
Pro*C  code  modules  contained  in  the  lAMS  system. 


FILE 

DSQL.PC 


KS  .PC 


MKS .PC 


DESCRIPTION _ 

Dynamic  SQL:  DSQL.PC  contains  the  code  needed  to  execute  the 
query  generated  in  QC.C.  This  was  taken  mostly  from  the 
Oracle  Pro*C  User's  Guide  vl.l  with  a  few  modifications.  It 
executes  a  query  which  is  stored  in  a  character  string,  and 
stores  the  results  in  a  text  file. 

Knowledge  Source:  This  file  contains  the  function  main.  It 
starts  by  loading  the  KS  from  either  a  previously  created 
data  file  or  from  Oracle  tables  created  by  the  SQL  code.  If 
the  KS  data  file  does  not  exist,  this  process  creates  and 
saves  it.  Then  it  reads  the  target  column (s)  from  a  query 
file,  and  builds  and  executes  a  query  based  on  the  target 
column (s)  and  search  constraints.  The  results  are  stored  to 
a  results  file  so  the  interface  may  display  them.  Errors  are 
trapped  and  reported  to  the  interface  via  a  code  in  the 
results  file. 

Meta-Knowledge  Source:  This  file  contains  the  code  needed  to 
load  the  MKS  either  from  a  previously  created  data  file  or 
from  Oracle  tables  created  by  the  SQL  code.  If  the  MKS  data 
file  does  not  exist,  this  process  creates  and  saves  it. 
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/*»*»********»****»»**»********♦*»*»*****»*******»»*•»***»»»**»**»*»»*»**»*«*»«» 

PROGRAM  DSQL.PC 

Code  adapted  from  Oracle  Pro*C  User's  Guide.  Reference  Appendix  E, 
pp.  228-245. 

Specification  designed  by; 

Peggy  Wright  in  support  of  lAMS  research 
Coded  by: 

Shannon  Thornton  15  AUG  92 

♦include  <stdio.h> 

♦include  <string.h> 

♦define  MAXLENBHVNAMES  0 
♦define  MAXLENBIVNAMES  0 
♦define  MAXLENSHVNAMES  10 
♦define  MAXLENSIVNAMES  0 
♦define  MAXNUMBV  10 

♦define  MAXNUMSV  10 


/*  SQL  codes.  Will 
♦define  SQL_OK 
♦define  SQL_WARNING 
♦define  SQL_ERROR 
♦define  NOT  FOUND 


be  used  for  bitwise  operati 


0 

/* 

Binary  - 

1 

/* 

Binary  - 

2 

/* 

Binary  - 

1403 

/* 

Returned 

ons  so  should  be  a  power  of 
0000 
0001 
0010 

when  FETCH  returns  nothing 


2 


*  / 


/*  Used  for  results  from  process_sql ( )  -  True  if  OK,  False  if  ERROR 


♦define  ERROR  -1 

♦define  OK  1 

♦  define  min  (a,  b) 

(  (a  < 

b)  ? 

(a)  :  (b)) 

♦define  max (a,  b) 

(  (a  > 

b)  ? 

(a)  :  (b)  ) 

extern  FILE  *iams 

log; 

extern  FILE  *iams 

res; 

extern  char  app_name [31 ) ; 

EXEC  SQL  BEGIN  DECLARE  SECTION; 
VARCHAR  uid[20]; 

VARCHAR  pwd [20] ; 
char  stmt [4096]; 

EXEC  SQL  END  DECLARE  SECTION; 


EXEC  SQL  INCLUDE  SQLCA; 

EXEC  SQL  INCLUDE  SQLDA; 

SQLDA  *bind_da  =  (SQLDA  *)  NULL; 
SQLDA  *select_da  =  (SQLDA  *)  NULL; 
short  *sdt  =  0; 
int  sdtl; 


int  check_warning  ( ) 

( 

if  (sqlca . sqlwarn [ 0 ]  ==  'W') 
return  SQL_WARNING; 
else  return  SQL_OK; 

) 
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int  check_error ( ) 
f 

switch  (sqlca . sqlcode)  { 
case  SQL_OK: 

return  SQL_OK; 
case  NOT_FOUND: 

return  NOT_rOUND; 
default : 

return  SQL  ERROR; 


sqi_warning ( ) 

{ 

if  ( sqlca . sqlwarn [ 1 ]  ==  'W') 

fprintf ( iams_log,  "%s:  SQLWARNING:  Column  was  truncated. \n", 
app_name) ; 

else  if  (sqlca . sqlwarn [ 2 ]  ==  'W')  { 

fprintf (iams_log,  "%s:  SQLWARNING:  NULL  values  in  aggregate  ”, 
app_name ) ; 

fprintf (iams_log,  "(MAX,  SUM)  function . \n” ) ; 

} 

else  if  (sqlca . sqlwarn ( 3]  ==  'W')  { 

fprintf (iams_log,  "%s:  SQLWARNING:  INTO  var  count  not  equal  ", 
app_name) ; 

fprintf ( iams_log,  "column  count. \n"); 

i 

else  if  ( sqlca . sqlwarn [ 4 ]  ==  'W')  ( 

fprint f ( iams_log,  "%s:  SQLWARNING:  Update  or  Delete  without  ", 
app_name) ; 

fprintf (iams_log,  "WHERE  clause , \n" ) ; 

} 

else  if  (sqlca . sqlwarn [ 5 ]  ==  'W') 

fprint f (iams_log,  "%s:  SQLWARNING:  ???\n",  app_name; ; 
else  if  ( sqlca . sqlwarn [ 6]  ==  'W') 

fprint  f  (iams_log,  ''%s:  SQLWARNING:  Rollbac)c  required . \n"  , 
app_name) ; 

else  if  (sqlca . sqlwarn [ 7 ]  ==  'W')  ( 

fprintf (iams_log,  "%s:  SQLWARNING:  Change  after  query  ", 
app_name) ; 

fprintf (iams_log,  "start  on  Select  For  Update . \n" ) ; 

) 

) 

print_colnames (dp) 

SQLDA  *dp; 

( 

int  len,  i,  j; 
char  name [ 31 ] ; 

fprintf (iams_log, "\n") ; 
for  (i  =  0;  i  <  dp->N;  i++)  { 

len  =  min (dp->L[i3 ,  dp->C[ij); 
len  =  min (len,  sizeof (name) -1 ) ; 


/*  LF  in  the  lof  file  */ 
/*  Loop  for  each  column  */ 
/*  column  length  =  min  of  */ 
/*  column  length,  buffer  */ 
/*  length,  space  allocated*/ 
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memcpy(name,  dp->S[i],  len) ; 
name [ len]  =  ' \0' ; 
if  (sdtii]  ==  2)  { 


fprintf (iams_log, "%*s  ", 

dp->L[i] , 

name)  ; 

fprintf (iams  res,"%*s  ", 

} 

else  { 

dp->L[i] , 

name)  ; 

fprintf ( iams_log, "%-*s  ” 

,  dp->L[i], 

name) ; 

fprintf (iams  res,"%-*s  " 

,  dp->L[i], 

name) ; 

} 

t 

fprintf (iams_log,  "\n"); 
fprintf (iams_res,  "\n"); 
for  (i  =  0;  i  <  dp->N;  i++)  { 

for  (j  =0;  j  <  dp->L[i];  j++)  { 
fprintf (iams_iog, 
fprintf (iams  res,  ; 

} 

fprintf  (iams_log,  "  ; 

fprintf (iams  res,  "  ") ; 

} 

fprintf  (iams_log,  "\n’'); 
fprintf ( iams_res,  "\n"); 


print_row (dp) 

SQLDA  *dp; 

{ 

int  i; 

for  (i  =  0;  i  <  dp->N;  i++)  / 

if  ( * (dp->I [i] )  <  0)  {  / 

fprintf  (iams_log, ’’%-*s  ",dp->L{i],  ”  ”);  / 

fprintf  (iams_res,  "%-*s  '',dp->L(i],  "  "  )  ; 

} 

else  ( 

fprintf (iams_log, "%-,*s  ",dp->L[i],  / 

dp->V(i]) ; 

fprintf  (iams_res, , *s  ",dp->L[il , 
dp->V[i]) ; 

) 

fprintf ( iams_log,  "\n");  / 

fprintf (iams  res,  "\n") ; 

) 


cleanup ( ) 
int  i; 

if  (select_da  '.  =  NULL)  { 

for  (i  =0;  i  <  select_da->N;  i++)  { 
free (select_da->V[i] )  ; 
free (select_da->I  [i] )  ; 


/*  for  name 

/*  Copy  the  column  name 
!*  Terminate  string 
/*  Is  it  a  numeric  column 
/*  Print  right  justified 


/*  Print  left  justified 
/ *  Print  left  justified 


/*  Send  to  the  log  file 
/*  Send  to  the  log  file 
/*  Loop  for  each  column 
/*  Loop  for  column  length 
/*  Underline  the  column 


/*  One  space  between  cols 


/*  Send  to  the  log  file 


*  Loop  for  each  column 

*  Returned  NULL? 

*  Print  nothing 


*  Print  column  contents 


*  Send  to  the  log  file 
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} 

sqlclu (select_da) ; 
select_da  =  (SQLDA  *)  NULL; 

1 

if  (bind_da  !=  NULL)  { 
sqlclu (bind_da) ; 
bind_da  =  (SQLDA  *)  NULL; 

} 

} 

init_select_vars (sdp) 

SQLDA  *'sdp; 

{ 

int  i; 

unsigned  char  prec; 
char  scale; 


if  (sdt  ==  NULL) 
sdt  =  (short  *) 
else 

sdt  =  (short  *) 


/*  Allocate  sdt  1st  time 
malloc (sizeof (short)  *  sdp->N) ; 

/*  Re-allocate  sdt 
realloc (sdt, sizeof (short) *sdp->N) ; 


for  (i  =  0;  i  <  sdp->N;  i++)  { 

sdp->Tli]  =  (sdp->T[i]  &  OxOOFF) ; 
sdt ( i ]  =  sdp->T [ i ] ; 
if  (sdp->T[il  ==  2)  { 

prec  =  (unsigned  char)  (sdp->L[i]  >>  8) ; 
scale  =  (char)  sdp->L[i]; 
if  (prec  ==  0) 
prec  =  8; 

sdp->L[i]  =  prec; 
if  (scale  <  0) 

sdp->L[i]  +=  -scale; 
sdp->L[i]  +=  2; 

} 

else  if  (sdp->T[i]  ==  12) 
sdp->L[i]  =  9; 
sdp->T[i]  =  1; 

sdp->L[i]  =  min ( sdp->L [ i ) ,  240); 
sdp->V[i]  =  (char  *)  malloc (sdp->L [i] ) ; 
sdp->l[i]  =  (short  *)  malloc (sizeof (short)); 


/*  Clear  high  order  bits  *  ■' 
/*  Store  the  type  */' 
/*  Is  it  a  numeric  field?  */ 
/*  Get  high  order  byte  *  / 
/*  Get  low  order  byte  */ 
/*  No  precision?  */ 
/*  Default  to  8  */ 
/*  THIS  WAS  26! ! ! ! !  */ 


/*  Store  precision  */ 
/*  Negative  scale?  */ 
/*  Must  add  trailing  zeros*/ 
/*  Include  possible  sign  */ 
/*  and  decimal  point  */ 
/*  Is  it  a  date  field?  */ 
/*  DD-MON-YY  */ 
/*  Coerce  to  CHAR  */ 
/*  Max  len.  is  240  */ 
/*  Allocate  room  for  data  */ 
/*  Allocate  room  for  ptr  */ 


int  process_sql (query) 
char  *query; 

int  bdSize  =  MAXNUMBV,  sdSize  =  MAXNUMSV,  rowid; 


/* - 

/* - 

/* - 

strcpy (stmt 

/* - 

/* - 


*  Copy  the  query  to  a  host  variables 


query) ; 


*  Chec)c  for  bogus  statements  * 


* 


*  / 
*  / 
*/ 

*  / 
*  / 
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if  (stmt [strlen (stmt ) -1 ]  == 

stmt [ St rlen ( stmt ) -1 1  =  ' \0' ; 
if  (strlen (stmt )  ==  0) 
return  ERROR; 


/* - *  Process  the  SQL  statement  * - 

/  * - 

EXEC  SQL  PREPARE  S  FROM  :stmt; 

if  ( (check_warning  {)  II  check_error ( ) )  ==  SQL_ERROR) 
return  ERROR; 


♦  / 
»  / 


EXEC  SQL  DECLARE  C  CURSOR  FOR  S; 
if  (check_error ( )  ==  SQL_ERROR) 
return  ERROR; 


bind_da  =  (SQLDA  *)  sqlald  (bdSize,  /*  Get  space  for  bind  vars’,' 

MAXLENBHVNAMES,  MAXLENBIVNAMES) ; 

if  (bind_da  ==  NULL)  (  /  *  Error  during  alloc?  * /' 

fprintf (iams_log,  "Error  allocating  memory  for  bind  variables. \n") ; 
exit (ERROR) ; 


bind_da->N  =  bdSize; 

EXEC  SQL  DESCRIBE  BIND  VARIABLES  FOR  S 
if  (check_error ( )  ==  SQL_ERROR) 
return  ERROR; 

if  (bind_da->F  <  0)  { 

bdSize  =  - (bind_da->F) ; 
sqlclu (bind_da) ; 

bind_da  =  (SQLDA  *)  sqlald (bdSize, 
MAXLENBHVNAMES,  MAXLENBIVNAMES); 
if  (bind_da  ==  NULL)  { 

fprintf  (iams_log,  "Error  alloc=)ti 
exit (ERROR) ; 


/*  Set  number  of  entries 
bind_da ; 

/*  Error  during  describe?  */ 


/*  Was  previous  size  okay?*/ 
/*  Get  the  correct  size  */ 
/*  Free  old  desc .  area  */ 
/*  Allocate  new  space  for  */ 
/ *  bind  variables  *  •' 

/*  Error  during  alloc?  */ 
memory  for  bind  variables . \n" ) ; 


EXEC  SQL  DESCRIBE  BIND  VARIABLES  FOR  S  INTO  bir,d_da; 

if  (check_error ( )  ==  SQL_ERROR)  /*  Error  durir j  describe?  */ 

return  ERROR; 

) 

bind  da->N  =  bind  da->F;  /*  #  entries  =  #  variables*/ 


EXEC  SQL  OPEN  C  USING  DESCRIPTOR  bind_da; 
if  (check^error ( )  ==  SQL_ERROR)  ( 
cleanup  ( ) ; 
return  ERROR; 


/*  Error  during  open? 
,/*  Deallocate  space 


select_da  =  (SQLDA  *)  sqlald (sdSize,  /*  Allocate  new  space  for  */ 

MAXLENBHVNAMES,  MAXLENBIVNAMES);  /*  define  variables  */ 

if  (select_da  ==  NULL)  ( 

fprintf (iams_log,  "Error  allocating  memory  for  select  var iables . \n" ) ; 
cleanupO;  /*  Deallocate  space  */ 

exit (ERROR) ;  /*  Close  the  open  cursor  */ 


select  da->N  =  0; 


/*  Init.  #  of  entries  */ 
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EXEC  SQL  DESCRIBE  SELECT  LIST  FOR  S 
if  (check__error  ( )  ==  SQL_ER.ROR)  ( 
cleanup  ( )  ; 

EXEC  SQL  CLOSE  C; 
return  ERROR; 


INTO  select_da; 

/*  Error  during  aescride'- 
/■*  Deallocate  space 
/*  Close  the  open  cursor 


select_da->N  =  sdSize; 
if  ^ select_da->F  <  0)  ( 

sdSize  =  -  (select_da->F) ; 
sqlclu ;select_da)  ; 

seiect_da  =  (SQLDA  »)  sqlald (sdSize, 
MAX LENSHVN AMES,  MAXLENS IV^NAMES  )  ; 
if  (select_da  ==  NULL)  { 

f print f  !  iams_log,  "Error  aliocati 
cleanup  ( ) ; 
exit (ERROR) ; 


/*  Set  number  of  entries 
’*  Was  previous  size  OK? 

/*  Get  correct  size 
/' *  Free  old  desc.  area 
/  ■*  Get  ccrrect  amount  cf 
*  space  for  select  vars 
/*  Error  allocating? 
memory  for  define  variables  . \r.'' ) 
Daallocate  space 


} 

EXEC  SQL  DESCRIBE 
if  (check_error  () 
cleanup  ( ) ; 

EXEC  SQL  CLOSE 
return  ERROR; 


SELECT  LIST  FOR  S 
==  SQL  ERROR)  ( 


INTO  select_da; 

/  ■*  Error  during  describe? 
/’•  Deallocate  spac.. 

Close  the  operi  cursor 


) 

select  da->N  =  select  da->F; 


''  #  entries 


*  varaibles 


if  {select_da->F  !=  0) 

init_select_vars (select_da)  ; 
print_cclna;Ties  (select_da)  ; 
for  (rowid  =  0;  ;  rowid»-)  { 

EXEC  SQL  FETCH  C  USING  DESCRIPTOR  select_da; 
( check_error  { )  ==  SQL_ERROR)  { 

cleanup ( ) ; 

EXEC  SOL  CLOSE  C; 
return  ERROR; 


'  #  variables  <>  zero? 

/  ■•  InitiaJize  the  vars 
/' *  Print  column  names 
/’  Keep  count  of  #  of  rows 

*  Get  a  row  of  results 
/*  Error  during  fetch? 

'*  Deallocate  space 

*  Close  the  open  cursor 


r 

else  if  ( chec.''_e r ror  ( )  ==  NCT_FOUND) 
break ; 

pr  1  nt__row  ( .se lect_da )  ; 

I 

f  pr  int  f  { lams  log,  " ',;‘;%u  row;-,  selected. \n\n", 
rowid) ; 
c i  eanu.,-'  ( )  ; 

EXEJ  SQL  CLOS.F  C; 
return  rowid; 


No  rows  left? 

Break  out  of  loop 
Print  the  current  row 

■Send  to  the  log  file 

Pealiocare  space 
Close  the  open  curse: 
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PROGRAM  KS.PC 

Project  specifications  developed  by: 

Peggy  Wright  in  support  of  lAMS  research 
Code  written  by: 

Shannon  Thornton  12  AUG  92 

Prompts  for  userid  and  password.  Once  entered,  the  program  attempts  to 
connect  to  Oracle  and  create  a  Knowledge  Source  based  on  the  lAJ^S  tables. 
The  Knowledge  Source  contains  information  about  the  database  from  three 
different  perspectives:  column,  table,  and  inde:-:. 

The  column  perspective  contains  information  about  all  columns  in  the 
database.  The  column's  name,  type,  size,  and  number  of  decimals  (if 
numeric)  are  contained.  Any  tables  and  indexes  in  which  the  column  is 
used  is  also  stored. 

The  table  perspective  contains  information  about  all  tables  in  the 
database.  The  table's  name  is  stored  along  with  any  columns  and  indexes 
used  in  that  table.  Information  about  primary,  foreign,  and  composite 
)ceys  is  stored  with  each  column.  Whether  the  column  can  be  Null  or  not 
IS  also  stored.  The  uniqueness  of  an  index  is  stored  with  each  index 
name . 

The  index  perspective  contains  information  about  all  index  in  the 
database.  The  index's  name,  uniqueness,  table  name  where  the  index  is 
used,  and  all  columns  forming  the  index  are  stored. 

Naming  Convention 

Functions  used  for  manipulating  the  tree  or  list  structure  begin  with  the 
first  letter  of  the  structure  used.  For  example,  to  insert  a  column  into 
the  column  tree,  c_ins  ( . . )  is  called.  The  c_  indicates  the  function  uses 
the  column  tree  structure.  All  functions  that  manipulate  the  table  list 
inside  a  node  in  the  column  tree  begin  with  c_t .  Any  function  that 
manipulates  the  index  list  inside  the  previously  mentioned  table  list 
begins  with  c_i ,  All  table  tree  functions  start  with  t_,  and  all  index 
tree  functions  start  with  i_.  This  convention  is  also  used  for  global 
tree  variables,  c_tree,  t_tree,  and  i_tree,  which  reference  the  column 
tree,  table  tree,  and  index  tree,  respectively. 

#include  <stdio.h> 

#include  <string.h> 

#include  "types. h" 


extern  struct  c_node  *c_tree;  /*  Pointer  to  the  column  tree  * 

extern  struct  t_node  ’'t_tree;  /*  Pointer  to  the  table  tree  */ 

extern  struct  i_node  '■i_tree;  /*  Pointer  to  the  inde.x  tree  */ 

FILE  *fd;  /*  File  pointer  for  KS  data  file  ♦/ 

FILE  »iams_loq;  /*  File  pointer  to  the  lAMS  log  file  */ 

FILE  »iams_qry;  /*  File  pointer  to  the  lAMS  query  file  */ 

FILE  * ianis__res ;  /*  File  pointer  to  the  query  results  file  */ 

char  app_name [NAMELENGTH ] ;  /*  Application  name  */ 


EXEC  SQL  BEGIN  DECLARE  SECTION; 
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VARCHAR  userid [20];  /*  User  id  used  to  connect  to  Oracle 

VARCHAR  password [20] ;  /*  Password  used  to  connect  to  Oracle 

/*  The  following  host  variables  are  used  for  storing  data  returned  from 
/*  embedded  SQL  Queries. 

/* - - - - - - - - - - - - - - 

VARCHAR  tbl_name [31] ; 

VARCHAR  col_name [ 31 ] ; 

VARCHAR  idx_name [31] ; 
char  nullable; 
char  primary; 
char  foreign; 
char  composite; 
char  uniqueness; 
int  decimal; 
int  size; 

VARCHAR  type [10]; 

EXEC  SQL  END  DECLARE  SECTION; 

EXEC  SQL  INCLUDE  SQLCA; 


prompt ( ) 

{ 

printfC'Need  to  access  %s.\n'',  app_name)  ; 

printf("\n  Enter  User  ID:  "); 

scanf ("%s", userid. arr) ; 

userid. len  =  strien (userid. arr) ; 

printf  ("\n  Enter  Password:  ”); 

scanf { "%s" , password . arr ) ; 

oassword.len  =  strien (password. arr) ; 

) 

int  oracle_login ( ) 

DESCRIPTION:  Prompts  for  a  userid  and  password.  Once 

this  is  entered,  it  tries  to  connect  to 
Oracle  using  the  userid  and  password. 

PARAMETERS;  None 

Ki-TJRNS:  Oracle  error  code  (0  if  no  error) 

CALLS;  Oracle 

CALLED  BY:  main 

{ 

EXEC  SQL  CONNECT  .-userid  /*  Connect  to  Oracle  using  the  entered  */ 

IDENTIFIED  BY  :password;  /*  user  ID  and  password  */ 

return  sqlca . sqlcode ;  /*  Return  the  Oracle  error  code  */ 

init_trees ( ) 

DESCRIPTION:  Initializes  the  table,  column,  and  index 

t  rees . 

PARAMETERS :  None 

RETURNS:  None 

CALLS;  c_init,  i_init 

CALLED  BY:  main 


*/ 
*  / 
*/ 

*  / 
*/ 
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■>r1r*ir*****-*:'*i'-*-*  j 


t_init ( ) 
c_init  ( ) 
i  init  ( ) 


/*  Initialize  the  table  tree,  t_tree  ’/ 
/*  Initialize  the  column  tree,  c_tree  */ 
/*  Initialize  the  index  tree,  i_tree  '/ 


del_trees ( ) 

y'i»'**»'>ir***'*»'****j»'^^^^3*’*-*T^**-**j»'***’j*'jr*i»-*-**-*-******-*-*'*-**********»'********^**’***^ 

DESCRIPTION:  Deletes  the  table,  column,  and  index 

trees . 

PARAMETERS:  None 

RETURNS :  None 

CALLS:  t_deltree,  c_deltree,  i_deltree 

CALLED  BY:  main 

»*******-*r****-**-**ik-***»***'*'**'**«***H*-********-*i»*-*'ir»»**********'»**'*******’***'* 


( 

t^deltree (t_tree) ; 
c^deltree (c_tree) ; 
i_deltree {i_tree)  ; 

} 


Delete  the  table  tree 
/*  Delete  the  column  tree 
/*  Delete  the  index  tree 


*  / 
*  / 


get_tabie__info  ( ) 

/*-***-*-**-«-*-^#**1^*'**'*'5^**-*******»^******.<r***********»1»*'**5k-****************»*******' 


DESCRIPTION: 


PARAMETERS : 
RETURNS : 
CALLS: 
CALLED  BY: 


Loads  table  information  about  a  database 
into  a  tree  structure  ordered  by 
tabie_name . 

None 

None 

Oracle,  t_ins,  t_cins,  t_iins 
main 


♦  »#**■*•*•*•#*«*******•********•**********:*•*•*••*♦•*★*■*•**»•****»**•♦***•* 


*♦•**★♦*•*»* 


★  ♦  f 


{ 

struct  table  t ; 
struct  t_node  *tnode; 
struct  t_col_info  c; 
struct  t  idx  info  i; 


EXEC  SQL  DECLARE  T_Ti  CURSOR  FOR  /*  Get  all  the  tables 

SELECT  DISTINCT  TABLE_NAME 
FROM  lAMS  TAB  INFO; 


EXEC  SQL  OPEN  T_T1; 
for  (  ;  ;  )  I 

EXEC  SQL  FETCH  T_T1  INTO  :tbl_name; 

if  (sqlca . sqlcode  ==  1403)  /*  Any  tables  left? 

break ; 


tbl_name . arr [ tbl_name . len ]  =  '\0'; 

St rcpy (t . name ,  tbl_name .arr ) ; 

tnode  =  (struct  t_node  *)  t_ins (&t_tree,  t);  /*  Insert  it  in  the  tree  */ 

EXEC  SQL  DECLARE  T_C1  CURSOR  FOR 

SELECT  DISTINCT  COLUMN_NAME,  NULLABLE  /*  Get  the  column  info  */ 

FROM  IAMS_TAB_INFO  /*  about  the  current  */ 

WHERE  TABLE  NAME  =  :tbl  name;  /*  table  */ 
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EXEC  SQL  OPEN  T_C1; 
for  (  ;  ;  )  { 

EXEC  SQL  FETCH  T_C1  INTO  :col_name,  : nullable ; 

if  ( sqlca . sqlcode  ==  1403)  /*  Any  columns  left? 

break; 


EXEC  SQL  DECLARE  T_C2  CURSOR  FOR 

SELECT  PRIMARY,  FOREIGN,  COMPOSITE 
FROM  IAMS_IND_INFO 
WHERE  COLUMN_NAME  =  ;col_name 
AND  TABLE  NAME  =  :tbl  name; 


,/*  Get  the  key  info  about 
/*  about  the  current 
/*  column  and  table 


EXEC  SQL  OPEN  T_C2; 

EXEC  SQL  FETCH  T_C2  INTO  rprimary,  rforeign,  ;composite; 
if  ( sqlca . sqlcode  ==  1403)  /*  Is  it  a  key 

strcpy (c.key,  " - ");  /*  NO:  Store  blanks 

else  { 

c.key [0]  =  primary;  /*  Primary?  Y/N 

c.keyil]  =  foreign;  /*  Foreign?  Y/N 

c.keyl2]  =  composite;  /*  Composite?  Y/N 

c.key  [3]  =  '\0';  /*  Terminate  the  string 

t 

EXEC  SQL  CLOSE  T_C2; 
col_name . arr [ col_name . len]  =  '\C'; 
strcpy (c . name,  col_name .arr ) ; 
c. nullable  =  nullable; 

t  cins (& (tnode) ->info,  c) ;  /*  Insert  the 


/*  Insert  the  column  into  * 
/*  the  current  table  node  * 


SQL  CLOSE  T  Cl; 


EXEC  SQL  DECLARE  T_I1  CURSOR  FOR 

SELECT  DISTINCT  INDEX_NAME,  UNIQUENESS 

FROM  IAMS_IND_INFO 

WHERE  TABLE  NAME  =  :tbl  name; 


/*  Get  index  info  about 
/*  the  current  table 


EXEC  SQL  OPEN  T_I1; 
for  {  ;  ;  )  { 

EXEC  SQL  FETCH  T_I1  INTO  :idx_name,  runiqueness; 

if  ( sqlca . sqlcode  ==  1403)  /*  Any  indexes  left?  * 

break ; 

idx_name . arr [ idx_name . len]  =  '\0'; 
st rcpy  (  i . name ,  idx_name . arr ) ; 
i. unique  =  uniqueness; 

t_iins (& itnode) ->info,  i);  /*  Insert  the  index  into  * 

/*  the  current  table  node  * 
t 

EXEC  SQL  CLOSE  T_I1; 

1 

EXEC  SQL  CLOSE  T  Tl; 


get__column_info  ( ) 

/«♦»»********»**»*»**♦**♦***»***•*»***«*****♦*♦♦***♦*♦****■* 

DESCRIPTION:  Loads  column  information  about  a  database 
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PARAMETERS : 
RETURNS : 
CALLS : 
CALLED  BY: 


into  a  tree 
column_name . 
None 
None 

Oracle,  c_ins 
main 


strucuture  ordered 


,  c_tins,  c  iins 


by 


{ 

struct  column  c; 
struct  c_tab_info  t ; 
struct  c_idx_info  i; 
struct  c  node  *cnode; 


**■»***/ 


EXEC  SQL  DECLARE  C_C1  CURSOR  FOR  /*  Get  all  columns 

SELECT  DISTINCT  COLUMN_NAME,  DATA_TYPE,  DATA_LENGTH,  DATA_PRECISION 
FROM  lAMS  TAB  INFO; 


EXEC  SQL  OPEN  C_C1; 
for  (  ;  ;  )  ( 

EXEC  SQL  FETCH  C_C1  INTO  :col_name,  :type,  : 
if  (sqlca . sqlcode  ==  1403) 
brea>:; 

col_name . arr [col_name . len]  =  '\0'; 

St rcpy (c . name,  col_name.arr); 
type . arr [type . len]  =  ' \0' ; 
strcpy  (c .type,  type.arr); 
c.size  =  size; 
c. decimal  =  decimal; 

cnode  =  (struct  c_node  »)  c_ins (&c_t ree ,  c) ; 

EXEC  SQL  DECLARE  C_T1  CURSOR  FOR 

SELECT  DISTINCT  TABLE_NAME,  NULLABLE 

FROM  IAMS__TAB_INFO 

WHERE  COLUMN  NAME  =  :col  name; 


size,  :decimal; 

/*  Any  more  columns? 


/*  Insert  the  column  into  * /' 
/ *  the  tree  »  ' 

/*  Get  all  tables  that  *  ' 
/*  contain  the  current  *  •' 
/  *  column  ■*  - 


EXEC  SQL  OPEN  C_T1; 
for  (  ;  ;  )  •; 

EXEC  SQL  FETCH  C_T1  INTO  ;tbl_name,  :nullable; 
if  ( sqlca . sqlcode  ==  1403)  /*  Any  more  tables? 

brea):; 

tbl_name .art [tbi_name . len]  =  '\0'; 
strcpy  (t .name,  tbl_name . arr ) ; 
t. nullable  =  nullable; 


EXEC  SQL  DECLARE  C_T2  CURSOR  FOR 

SELECT  PRIfiARY,  FOREIGN,  COMPOSITE 
FROM  IAMS_IND_INFO 
WHERE  COLUMN_NAME  =  :col_name 
AND  TABLE  N.^^E  =  :tbl  name; 


*  Get  key  info  about  the  * '' 
/*  the  current  column  and  */ 
/*  table  *' 


EXEC  SQL  OPEN  C_T2; 

EXEC  SQL  FETCH  C_ T2  INTO  ;primary, 
if  (sqlca . sqlcode  ==  1403) 

strcpy  (t .key,  " - ") ; 

else  ( 

t.keylO]  =  primary; 


:  foreign,  :composite; 

/*  Is  it  a  key? 

/*  NO:  Store  spaces 

/*  Primary?  Y/N 
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t.key[l]  =  foreign; 
t.key[2]  =  composite; 
t.key[3]  =  '\0'; 

} 

EXEC  SQL  CLOSE  C_T2; 
c_tins ( icnode->info,  t); 

EXEC  SQL  DECLARE  C_I1  CURSOR  FOR 
SELECT  DISTINCT  INDEX_NAME 
FROM  IAMS_IND_INFO 
WHERE  COLUMN_NAME  =  :col_name 
AND  TABLE_NAME  =  :tbl_name; 

EXEC  SQL  OPEN  C_I1; 
for  (  ;  ;  )  { 

EXEC  SQL  FETCH  C_I1  INTO  :idx__name; 
if  (sqlca . sqlcode  ==  1403) 
break; 

idx_name.arrfidx_name.len]  =  '\0'; 
St rcpy (i . name,  idx_name.arr)  ; 
c  iins (cnode->info .tbl  tail,  i)  ; 


/*  Foreign?  Y/N  * 
/»  Composite?  Y/N  */ 
/*  Terminate  the  string  *  / 


/*  Insert  the  table  info  */ 
/♦  into  the  current  column*/ 

/*  Get  index  info  about 
/*  the  current  column  and  */ 
/*  table  */ 


/*  Any  more  indexes? 


/*  Insert  the  index  info  *  / 
/*  into  the  current  table  *  •' 


EXEC  SQL  CLOSE  C_I1; 

} 

EXEC  SQL  CLOSE  C_T1; 

} 

EXEC  SQL  CLOSE  C  Cl; 


get_index_inf o { ) 

y':^*'»iif**#'*’**-^***»***ir**i»-**ir*»**iir*-******i»r'**'******* 


DESCRIPTION: 


F.AFJLMETERS  : 
RETURNS : 
CALLS : 
CALLED  BY: 


Loads  index  information  about 
into  a  tree  structure  ordered 
index_name . 

None 

None 

Oracle,  i_ins,  i_cins 
main 


•********»********-****-*****<r********tk***********^ 


a  database 
by 


♦****★**♦♦★★ 


«  ♦  *  * 


*■»***»*♦»»•*»* 


■*♦■**★★★****»  / 


struct  index  i; 
struct  i_col_info  c; 
struct  1  node  ’inode; 


EXEC  SQL  DECLARE  I_I1  CURSOR  FOR 

SELECT  DISTINCT  INDEX_NAME,  UNIQUENESS, 
TABLE_NAME 

FROM  lAMS  IND  INFO; 


Get  all  indexes 


EXEC  SQL  OPEN  I_I1; 
f  o  r  (  ;  ;  )  ( 

EXEC  SQL  FETCH  I_I1  INTO  :id.x_name,  :  uniqueness,  :tbl_name; 
if  (sqlca . sqlcode  ==  1403)  /*  Last  index  found? 

break ; 

idx_name.arrfidx_name.len]  =  '\0'; 
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strcpy (i.name,  idx_name . ar r ) ; 
i. unique  =  uniqueness; 
tbl_name . arr [ tbl_name . len ]  =  '\0'; 
strcpy ( i . tbi_name,  tbl_name .arr) ; 

inode  =  (struct  i_node  *)  i_ins (&i_tree,  i);  /*  Insert  the  index  into 

/*  the  tree 

EXEC  SQL  DECLARE  I_C1  CURSOR  EOR 

SELECT  DISTINCT  COLUMN_NAME  /*  Get  all  column  name 

FROM  IAMS_IND_INFO  /*  used  to  form  the  ir. 

WHERE  INDEX  NAME  =  : idx  name; 


EXEC  SQL  OPEN  I_C1; 
for  (  ;  ;  )  { 

EXEC  SQL  FETCH  I_C1  INTO  :col_nanie; 

if  ( sqlca . sqlcode  ==  1403)  / ’  Any  more  columns? 

breaic; 

col_name . arr (col_name . len !  =  '\0'; 

St rcpy ( c . name,  ccl_name.arr); 

i_cins (&inode->infc,  c) ;  /*  Insert  the  column  into  ’ 

/*  the  current  index  node  * 


c'vr'r*  r\cir  ▼  ^  i  . 

]  ~ 

EXEC  SQL  CLOSE  I_I1; 

f 

save_user_inf o  ( ) 

f print f  ( fd,  "%s  %s\n'',  userid. arr,  password.arr)  ; 


save_tabie_inf o  {t ) 
struct  t_node  *t; 

y**#-Tir-*j>-*Tr***')»'**-*»*i*-*''r****'*******'»»******'******»'*******»»-»'***'jr**'**--*-«-* 


DESCRIPTION: 


PARAMETERS : 
RETURNS : 
CALLS : 
CALLED  BY : 


Prints  the  table  informiation  stored  in  the 
tree  pointed  to  by  t  usinq  an  precrder 
traversal.  The  following  information  is 
printed:  table  name,  columns  used  ir.  the 

table  (along  with  'Key  and  nullable 
information),  and  indexes  are  printed. 


struct  t__node  *t 
None 

show_table_ inf G,  t_cnext,  t_inext 
main,  show  table  into 


fprintf  (fd, "%s\n”,t->info. name) ; 
t->inf o . col_cur  =  t->info.col_heaa; 
while  (t->info.col_cur  .=  NULL)  i 
f  print  f  (  fd,  "%s  %s  %c\r,'’, 

t - >inf o . col_cur->inf o .name, 
t  -  >inf  o .  col_cur->inf  o .  )cey, 
t->info . col_cur->info . nullable)  ; 
t_cnext (& (t) ->info) ; 


/*  Reset  column  pointer 


■' *  Advance  column  pointer  * 
/*  to  the  next  node  * 
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fprintf  (fd, "\n") ; 

t->info  .  idx_cur  =  t->info .  idx__head; 
while  (t->inf o . idx_cur  !=  NULL)  { 
fprintf  (fd,  ”%s  %c\ri", 

t->info . idx_cur->info.name, 
t->info . idx_cur->info .unique) ; 
t  inext (& (t ) ->info) ; 


} 

fprintf (fd, "\n")  ; 
if  (t->lchild  1=  NULL) 

save_table_info  (t-'-lchild)  ; 
if  (t->rchild  .' =  NULL) 

save  table  info (t->rchild) ; 


/*  Reset  index  pointer 


/*  Advance  index  pointer  ’/ 
/*  to  the  next  node  */ 


/*  If  NOT  NULL,  call  for  */ 
/*  the  left  sub-tree  ’/ 

/*  If  NOT  NULL,  call  for 
/*  the  right  sub-tree  ’/ 


save_column_in 'o (c) 
struct  c_node  *c; 


DESCRIPTION: 


PARAMETERS  : 
RETURNS : 
CALLS : 
CALLED  BY: 


Prints  the  column  information  stored  in  the 
tree  pointed  to  by  c  using  an  preorder 
traversal.  The  following  information  is 
printed:  column  name,  type,  size,  number 

of  decimals,  all  tables  the  column  is  used 
in,  and  all  indexes  the  column  is  used  in. 
struct  c_node  *c 
None 

show_column_info,  c_inext,  c_tnext 
main,  show  column  info 


►  »*»******-***'#it*'*-#-i 


{ 


fpr  in 
c- 
c- 
c->in 
while 
fp 


/ ' 


Reset  table  pointe: 


wh 


tf  (fd, "%s  %s  %d  %d\n", 

>info.name,  c->info . type, 

>info.size,  c->info. decimal) ; 
fo.tbl_cur  =  c->info.tbl_head; 

(c->info . tbl_cur  1=  NULL)  ( 
rintf(fd,  "%s  %s  %c\n", 
c->info . tbl_cur->info. name, 
c->info.tbl_cur->info.)cey, 
c->inf o . tbl_cur->inf o . nullable)  ; 

/*  Reset  index  pointer 

>info.tbl_cur->info. idx_cur  =  c->info.tbl_cur->info. idx_head; 
ile  (  c->inf o . tbl_cur->inf o . idx_cur  1=  NULL)  { 
fprintf (fd, "%s\n", 

c->info.tbl  cur->info  .  idx  cur->info  .  name)  ,• 


c_inext (&c->info.tbl_cur->info) ; 

I 

c_tnext (&c->info) ; 
fprintf  (fd,  "\n"); 


Advance  index  pointei 
to  the  next  node 


/*  Advance  table  pointer  */ 
/♦to  the  next  node  ♦ / 


fprintf (fd, "\n") ; 


if 

(c->lchild  1 

:=  NULL) 

/♦ 

If  NOT  NULL, 

call 

for 

*/ 

save_coiumn 

info (c->lchild) ; 

/* 

the  left  sub- 

-tree 

*/ 

if 

(c->rchild  ! 

'=  NULL) 

/* 

If  NOT  NULL, 

call 

for 

*  / 
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save  column 


} 


info (c->rchild) ; 


/*  the  right  sub-tree  * / 


save_inciex_inf o  (i) 
struct  i_node  *i; 

/****************»**»»»»********»*********»********»***»**********»*»**»•****»* 
DESCRIPTION:  Prints  the  index  information  stored  in  the 

tree  pointed  to  by  i  using  an  inorder 
traversal.  The  following  information  is 
printed:  index  name,  unigueness,  table 

name  where  the  index  is  used,  and  all 
columns  used  in  the  index. 

PARAMETERS:  struct  i_node  *i 

RETURNS :  None 

CALLS:  show_index_info,  i_cnext 

CALLED  BY:  main,  show_index_inf o 

★  ★★★'*****j»'*****»**»**'»**************»*****'j^*****'jlr*it*******Tk-***'**'jlr**********-'*’*'*’/ 

{ 

fprintf (fd, "%s  %s  %c\n”, 

i->info . name,  i->info . tbl_name,  i->info . unique ) ; 
i->info . col_cur  =  i->inf o . col_head;  /*Reset  the  column  pointer*/ 

while  ( i->inf o . col_cur  !=  NULL)  { 

fprintf  {fd, "%s\n", i->info.col  cur->info.name) ; 


i_cnext (&i->info)  ; 

/* 

Advance  the  column  ptr 

*  / 

/* 

to  the  next  node 

*/ 

/ 

fprintf (fd, "\n") ; 

if  (i->lchild  ;=  NULL) 

/* 

If  NOT  NULL,  call  for 

*/ 

save  index  inf o (i->lchild) ; 

/  ■* 

the  left  sub-tree 

*/ 

if  (i->rchild  1=  NULL) 

/  * 

If  NOT  NULL,  call  for 

*  / 

save_  -idex_info  (i->rchild)  ; 

/  * 

the  right  sub-tree 

*  / 

ksquit ( ) 

{ 

EXEC  SQL  COMMIT  WORK  RELEASE; 

if  (sqlca .  sqlcode  .' =  0)  /*  Error  committing?  */ 

printf("(KS)  Unable  to  commit  work.\n"); 
del_trees  ( ) ;  /*  Delete  all  the  trees  */ 

} 


ksinit  ( ) 

DESCRIPTION:  Connects  to  Oracle.  Loads  information 

needed  for  the  knowledge  source  from  the 
lAMS  tables  in  Oracle.  Displays  the 
information.  Deletes  the  trees  containing 
the  information,  and  disconnects  from 
Oracle . 

PARAMETERS:  None 

RETURNS :  None 

CALLS:  Oracle,  oracle_login,  ini_trees, 

get_table_info,  get_column_inf o, 
get_index_info,  show_table  info, 
show_column_inf o,  show_index_inf o, 
del  trees 
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CALLED  BY:  None 


prompt ( ) ; 

if  (oracle_login 0  !=  0)  { 

printf("(KS)  Unable  to  connect  to  Oracle 
userid. arr, password. arr) ; 
exit  { 0 ) ; 


/*  Error  connecting? 
with  %s/%s\n". 


init_trees  ( ) ; 
get_table_inf o ( ) ; 
get_column_inf o ( ) ; 
get_index_inf o ( ) ; 
save_user_info ( ) ; 
save_table_info (t_tree) ; 
fprintf (fd, "\n") ; 
save_column_inf o (c_tree)  , 
fprintf (fd, "\n") ; 
save_index_inf o { i_t  ree) ; 
fprintf (fd, "\n") ; 


/* 

Initialize  the  trees 

*  / 

/* 

Load 

table  information 

*  i 

/* 

Load 

column  info 

*  / 

/* 

Load 

index  information 

*  1 

/  * 

Save 

UID  and  PWD 

»  / 

/  5*" 

Save 

the  cable  info 

*  / 

/* 

and 

the  column  infc 

*/ 

/♦ 

and 

the  index  infc  to 

*  / 

/* 

the 

KS  data  file 

*  / 

load_table_info ( ) 

{ 

char  buf [ 80 ] ; 
struct  table  t; 
struct  t_node  'tnode; 
struct  t_col_info  c; 
struct  t_idx_info  i; 

for  (  ;  ;  )  ( 

fgets (t . name,  31,  fd); 
t . name [ St rlen (t . name) -1 ]  =  '\0'; 
if  (t.name(0]  ==  '\0') 
brea)c; 

tnode  =  (struct  t_node  *)  t_ins (&t_tree,  t )  ; 
for  (  ;  ;  )  { 

fgets  ^buf ,  80,  fd;  • 
buf [ strlen (buf ) -1 ]  =  '\0'; 
if  (buf[0]  ==  '\0') 
brea)c; 

c. nullable  =  buf(strlen(buf)-l]; 
strcpy  (c . name,  strtok(buf,  ”  ") ) ; 

St rcpy (c . key,  strtok{NULL,  "  ")); 
t_cins ( &tnode->info,  c) ; 

1 

for  (  ;  ;  )  ( 

fgets (buf,  80,  fd) ; 
buf ( strlen (buf ) -1 ]  =  '\0'; 
if  (buf[0|  ==  ’\0') 
break; 

i. unique  =  buf [strlen (buf ) -1 1 ; 
strcpy  ( i  . name,  strtok(buf,  ”  ’’)); 
t_iins (4tnode->info,  i); 

) 


89 


i^pendlx  C  Pro*C  Code 


Oct  11  17:41  1992  ks.pc  Page  11 


) 


i 


load_column_info ( ) 

{ 

struct  column  c; 
struct  c_tab_info  t; 
struct  c_id>:_info  i; 
struct  c_node  *cnode; 
char  buf [80] ; 

for  (  ;  ;  )  { 

fgets(buf,  80,  fd); 
bul [ strlen (buf ) -1 ]  =  '\0'; 
if  (buf [0]  ==  ' \0' ) 
break; 

strcpy (c . name,  strtok(buf,  ”  ")); 
strcpy (c.type,  strtok(NULL,  "  ")); 
c.size  =  atoi (strtok (NULL,  "  ")); 
c. decimal  =  atoi  (strtok (NULL,  "  ")); 
cnode  =  (struct  c_node  *)  c_ins(&c  tree,  c) 
for  (  ;  ;  )  { 

fgets(buf,  80,  fd); 
buf [strlen  (buf) -1]  =  '\0'; 
if  (buf (Oj  ==  ' \0' ) 
break; 

t. nullable  =  buf[strlen(buf)-l]; 
strcpy (t .name,  strtok (buf,  "  ")); 
strcpy (t .key,  strtok (NULL,  "  ")); 
c_tins (&cnode->info,  t); 
for  (  ;  ;  )  [ 

fgets (i.name,  31,  fd); 

1 . name [strlen (i . name) -1 ]  =  '\0'; 
if  (i.name[0]  ==  '\0') 
break; 

c_iins {cnode->info.tbl_tail,  i) ; 


load_index_in  f o ( ) 

{ 

struct  index  i; 
struct  i_col_info  ob¬ 
struct  i_node  *inode; 
char  buf [ 80 ] ; 

for  (  ;  ;  )  ; 

fgets  (buf,  80,  f d)  ; 
buf [strlen (buf ) -1]  =  '\0'; 
if  (buf [ 0 ]  ==  ' \0' ) 
break; 

i. unique  =  buf [strlen (buf ) -1 ) ; 
strcpy (i .name,  strtok  (buf,  ”  ")); 
strcpy (i .tbl_name,  strtok (NULL,  "  ")); 
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inode  =  (struct  i_node  *)  i_ins {&i_tree,  i); 
for  (  ;  ;  )  { 

fgets (c .name,  31,  fd); 
c . name [ strlen (c . name) -1 ]  =  '\0'; 
if  {c.name[0]  ==  '\0') 
break; 

i_cins (&inode->info,  c) ; 

} 

} 

} 

load_user_info ( ) 

( 

char  buf [80]  ; 

fgets (buf,  80,  fd); 

buf [strlen (buf ) -1)  =  '\0'; 

strcpy (userid . arr,  strtok(buf,  "  ")); 

strcpy (password. arr,  strtok(NULL,  "  ")); 

userid. len  =  strlen  (userid. arr) ; 

password. len  =  strlen  (password. arr); 


ksload ( ) 
DESCRIPTION: 


PARAMETERS:  None 
RETURNS :  None 
CAI'LS :  None 
CALLED  BY:  None 


#»^**^***»****-*-***r’*************<r**********-***»**'»*i^********»»***^***»******»**/' 


load_user_info { )  ; 

/*  Load  user  id  info 

*  / 

if  (oracle_login 0  !=  0)  ( 

Error  connecting? 

*  / 

printfCMKS)  Unable  to  connect 
userid. arr, password. arr)  ; 

to  Oracle  with  %s/%s\n", 

exit (0)  ; 

) 


init 

trees  ( ) ; 

/* 

Initialize  the  trees 

•*  / 

load 

stable  info  ( ) ; 

/  * 

Load  table  information 

*  / 

load 

column  info  ( ) ; 

/* 

Load  column  info 

*  / 

load 

index  info  ( ) ; 

/* 

Load  index  information 

*  / 

main(argc,  argv) 
int  argc; 
char  *argv [ ] ; 

{ 

char  tl[30],  tlop[5],  tlrange[30],  tltable[30],  t2[30],  t2op[5],  t2range[30], 
t2table[30] , jc[30] , jcop [30] , jcrange [30] , qry [ 4096] , fname [ 50] ,  res name [50] ; 
int  res  =  NO_DATA,  procres  =  0; 

iams_log  =  fopen ("iams_log.txt",  "at"); 
if  (argc  >  1) 

str^ py (app_name,  argv[l]); 
else  { 
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f print f ( iams_log, "KS :  Application  name  is  not  present . \n” ) ; 
fclose {iams_log) ; 
exit  (-1)  ; 


iams_qry  =  f open ("iams_qry.txt",  "at"); 
strlwr (app_name) ; 

spr intf (resname , " iams_%s_re suits . txt" , app_name) ; 
iams_res  =  fopen (resname, "rt") ; 
if  (fgets(tl,  31,  iams_res)  !=  NULL) 
tl  [strlen  (tl) -1)  =  '\0'; 
else  { 

fprintf {iams_log, "KS :  Error  reading  %s . \n", resname) ; 
fclose (iams_log) ; 
exit  (-1 ' ; 

} 

if  {fgets{tlop,  31,  iams_res)  !=  NULL) 
tlop [strlen (tlop) -1]  =  '\0'; 
else  { 

fprint f ( iams_log, "KS :  Error  reading  %s . \n" , resname ) ; 
fclose ( iams_log) ; 
exit  (-1 ) ; 

} 

if  ( f gets  (t 1  range,  31,  iams_res)  !=  NULL) 
tlrange [strlen (tlrange) -1]  =  '\0'; 
else  { 

fprintf ( iams_log, "KS :  Error  reading  %s . \n" , resname) ; 
fclose (iams_log) ; 
exit  (-1) ; 

} 

if  (fgets(t2,  31,  iams_res)  1=  NULL) 
t2  [  strlen  (t2) -1 ]  =  '\0'; 
else  { 

fprintf (iams_log, "KS:  Error  reading  %s . \n" , resname ) ; 
fclose (iams_log) ; 
exit  (-1) ; 

} 

if  (fgets(t2op,  31,  iams_res)  =  NULL) 
t2op [ strlen (t2op) -1 ]  =  '\0'; 
else  { 

fprintf  (iams_log,  "KS  :  Error  reading  %s  . '.r."  ,  resname )  ; 
fclose (iams_log) ; 
exit  (-1) ; 

} 

if  ( fgets  (t2range,  31,  iams_res)  1=  NULL) 
tlrange  [stileri  (L2i3nge) -1]  =  '\0'; 
else  { 

fprint f ( iams_log, "KS :  Error  reading  %s . \n" , resname) ; 
fclose (iams_log) ; 
exit (-1 ) ; 

} 

fclose  (iams__res)  ; 

strupr  (tl )  ; 
strupr (tlcp)  ; 
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strupr (t2) ; 
strupr (t2op) ; 
tltable [0 ]  =  ' \0'  ; 
t2table[0]  =  '\0'; 
jc [0]  =  '  \0'  ; 
jcop [ 0 ]  =  ' \0 ' ; 
j Grange [0]  =  ' \0' ; 

#ifdef  Debug 

printf ( "Target  1:  %s  (  %s  %s  ( \n" , t 1, tlop, tlrange) ; 
printf ( "Target  2:  %s  (  %s  %s  ) \n", t2, t2op, t2range) ; 

#endif 

iams_res  =  f open ( resname , "wt " ) ; 

sprint  f  (fname,  "iams_%s_)ts  .txt"  ,  app_naine)  ; 

fd  =  f open ( fname,  "rt") ; 

if  (fd  ==  NULL)  { 

fd  =  fopen (fname,  "wt"); 
jcsinit  ( )  ; 

) 

else  l^sload  ( )  ; 

res  =  f ind_relation (tl,  t2,  tltable,  jc,  t2table) ; 
switch  (res)  { 
case  NO_DATA: 

fprintf (iams_log,  "%s:  %s  and  %s  are  not  related. \n", 
app_name,  tl,  t2) ; 
fprintf (iams_res,  "%d\n",NOTREL) ; 
brea)c; 

case  NOT_FOUND: 

fprintf (iams_log,  "%s;  Either  %s  or  %s  does  not  exist  in  the  KS.\n", 
app_name,  tl,  t2) ; 

fprintf (iams_log,  "This  indicates  an  inconsistency  in  the  KS/MKS.\n") 
brea)c  ; 
case  TBL: 

if  ((tl[0]  !=  NULL)  &&  (t2[0]  !=NULL)) 

fprintf (iams_log,  "%s:  Both  %s  and  %s  reside  in  %s.\n", 
app_name,  tl,  t2,  tltable); 
else  if  (tl  [0]  !=  NULL) 

fprintf (iams_log,  "%s:  %s  resides  in  %s.\n", 
app_name,  tl,  tltable) ; 

else 

fprintf (iams_log,  "%s:  %s  resides  in  %s.\n", 
app_name,  t2,  tltable); 

brea)c; 

case  TBL_COL_TBL: 

fprintf ( iams_log,  "%s:  A  JOIN  is  needed. \n",  app_name); 
fprint f ( iams_log,  "\t%s  is  in  %s,  and\n",tl,  tltable); 
fprintf ( iams_log,  "\t%s  is  in  %s,  and\n",t2,  t2table); 
fprint f (iams_log,  "\tthe  JOIN  column  is  %s.\n",jc); 
break; 
default : 

fprintf (iams_log,  "Unknown  results  returned  by  simple_case2(..).\n"); 
fprint f ( iams_log,  "Return  value  was  %d . \n" , res) ; 

) 

if  ((res  !=  NO  DATA)  &&  (res  !=  NOT  FOUND))  { 
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bld_query (qry,  res,  tl,  tlop,  tlrange,  tltable,  t2,  t2op,  t2range, 

t2table,  jc,  jcop,  jcrange) ;  /»  build  query' 

fprintf (iams_res,  "%d\n",OK); 
if  ( (procres  =  process_sql (qry) )  ==  -1)  { 

fprintf {iams_log,  "%s:  Error  processing  the  following  query:\n", 
app_name) ; 

^  fprintf  (iams_iog,  ”%s\n\n’’,  qry)  ; 
else  if  (procres  ==  0)  { 

fprintf (iams_log, "KS :  Query  returned  no  results . \n" ) ; 

unlinl<  (resname)  ; 

iams_res  =  fopen  (resname, "wt") ; 

fprintf  (iams_res,  "%d\n” , OKNOROWS) ; 

} 

)  /*  End  If  */ 
k.squit  ( )  ; 
f close  ( fd) ; 
fclose (iams_res) ; 
close (iams_qry) ; 
close (iams_log) ; 
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/********»****************»*******■»************»****»****»***»»*******■»»*»*»'»♦* 

PROGRAM  MKS.PC 

Pro*C  code  developed  to  construct  and  manipulate  lAMS  meta  knowledge  source. 
Project  specifications  developed  by: 

Peggy  Wright  in  support  of  lAMS  research 
Code  written  by: 

Shannon  Thornton  18  AUG  92 

Naming  Convention 

Functions  used  for  manipulating  the  tree  or  list  structure  begin  with  the 
first  letter  of  the  structure  used.  For  example,  to  insert  a  column  into 
the  column  tree,  c_ins { . . )  is  called.  The  c_  indicates  the  function  uses 
the  column  tree  structure.  All  functions  that  manipulate  the  table  list 
inside  a  node  in  the  column  tree  begin  with  c_t .  Any  function  that 
manipulates  the  index  list  inside  the  previously  mentioned  table  list 
begins  with  c_i .  All  table  tree  functions  start  with  t_,  and  all  index 
tree  functions  start  with  i_.  This  convention  is  also  used  for  global 
tree  variables,  c_tree,  t_tree,  and  i_tree,  which  reference  the  column 
tree,  table  tree,  and  index  tree,  respectively. 


#include  <stdio.h> 
#include  <string.h> 
♦include  "mks.h" 


♦define  USERID  "iams" 
♦define  PASSWORD  "iammks" 


extern  struct  m_node  ■'m._tree;  /*  Pointer  to  the  index  tree  */ 

FILE  *fd;  /*  File  pointer  for  KS  data  file  */ 

extern  FILE  *iams_log;  /*  File  pointer  to  the  IAMS  log  file  */ 

EXEC  SQL  BEGIN  DECLARE  SECTION; 

VARCHAR  userid{20];  /*  User  id  used  to  connect  to  Oracle  */ 

VARCHAR  password [20] ;  /*  Password  used  to  connect  to  Oracle  */ 

/*  The  following  host  variables  are  used  for  storing  data  returned  from  */ 

/*  embedded  SQL  Queries.  */ 

/* - - - */ 


VARCHAR  col_name [ 31 ] ; 
VARCHAR  app_name [31] ; 
int  decimal; 
int  size; 

VARCHAR  type [10]; 

EXEC  SQL  END  DECLARE  SECTION; 
EXEC  SQL  INCLUDE  SQLCA; 


int  oracle_login ( ) 


DESCRIPTION: 


PARAMETERS: 
RETURNS: 
CALLS : 


Prompts  for  a  userid  and  password.  Once 
this  is  entered,  it  tries  to  connect  to 
Oracle  using  the  userid  and  password. 
None 

Oracle  error  code  (0  if  no  error) 

Oracle 
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CALLED  BY:  main 

■*******if*it*ir**t[*-k‘^iei(*-t*-kirif**ieific-kirtricifk-k*-kirit*ir*ic****if*if****ieirie***'k**ir****-k**it*-k*/ 

{ 

strcpy  (userid. arr,  USERID); 
strcpy (password. arr,  PASSWORD); 
userid. len  =  strlen (userid. arr) ; 
password. len  =  strlen (password . arr) ; 

EXEC  SQL  CONNECT  :userid  /*  Connect  to  Oracle  using  the  entered  */ 

IDENTIFIED  BY  :password;  /*  user  ID  and  password  */ 

return  sqlca . sqlcode;  /*  Return  the  Oracle  error  code  */ 

} 

init_tree ( ) 

DESCRIPTION:  Initializes  the  table,  column,  and  inde.x 

trees . 

PARAMETERS:  None 

RETURNS :  None 

CALLS:  t_init,  c_init,  i_init 

CALLED  BY :  main 

( 

f^_init();  /*  Initialize  the  meta-KS  tree,  m  tree  */ 

} 

del_tree ( ) 

DESCRIPTION:  Deletes  the  table,  column,  and  index 

t.  r66  s 

PARAMETERS :  None 

RETURNS:  None 

CALLS:  t_deltree,  c_deltree,  i_deltree 

CALLED  BY :  main 

{ 

m_deltree (m_tree) ;  /*  Delete  the  MKS  tree  */ 

} 

get_mks_info ( ) 

/♦»*****»*****»********************************,***********,»************»***** 

DESCRIPTION: 

PARAMETERS :  None 

RETURNS:  None 

CALLS:  Oracle,  c_ins,  c_tins,  c  iins 

CALLED  BY:  main 

»»**♦♦*****■»»*»*»*******,,*»*************,****»**,****,*»***,*****, »***,***,**^ 

{ 

struct  mks  m; 
struct  m_app_info  a; 
struct  m_node  *mnode; 

EXEC  SQL  DECLARE  M_M1  CURSOR  FOR  /*  Get  all  columns  */ 

SELECT  DISTINCT  COLUMN_NAME,  DATA_TYPE,  DATA_LENGTH,  DATA_PRECISION 
FROM  MKS_TAB_INFO; 

EXEC  SQL  OPEN  M  Ml; 
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for  (  ;  ;  )  { 

EXEC  SQL  FETCH  M_M1  INTO  ;col_name,  :type,  :size,  tdecimal; 
if  (sqlca . sqlcode  ==  1403)  /*  Any  more  columns?  ’/ 

brea)c; 

col_name.arr [col_name.len]  =  '\0'; 
strcpy (m. name,  col_name.arr); 
type. arr [type. len]  =  '\0'; 
strcpy (m. type,  type.arr); 
m.size  =  size; 
m, decimal  =  decimal; 

#ifdef  Debug 

printfC - %s  %s\n",  m.name,  m.type); 

#endif 

mnode  =  (struct  m_node  *)  m^ins (&m_tree,  m) ;  /*  Insert  the  column  into  */ 


/*  the  tree  */ 

EXEC  SQL  DECLARE  M_A1  CURSOR  FOR 

SELECT  DISTINCT  APPLICATION  /♦  Get  all  tables  that  */ 

FROM  MKS_TAB_INFO  /♦  contain  the  current  */ 

WHERE  COLUMN^NAME  =  :col__name;  /■*  column  */ 

EXEC  SQL  OPEN  M_A1; 
for  (  ;  ;  )  { 

EXEC  SQL  FETCH  M_A1  INTO  :app  name; 

if  ( sqlca . sqlcode  ==  1403)  /*  Any  more  tables?  *  / 


brealc; 

app_name . arr [app_name . len]  =  '\0'; 
strcpy (a . name,  app_name . arr ) ; 

#ifdef  Debug 

printfC - %s\n",  a. name); 

#endif 

m._ains  ( &mnode->inf  o ,  a);  /*  insert  the  tab.’e  info  */ 

j  /*  into  the  current  column*/ 

EXEC  SQL  CLOSE  M  Al; 

} 

EXEC  SQL  CLOSE  M  Ml; 


load_m)cs_inf  o  ( ) 

DESCRIPTION  .- 
PARAMETERS :  None 

RETURNS :  None 

CALLS:  Oracle,  c  ins,  c  tins,  c  iins 

CALLED  BY :  main  ~ 


********************************************************* 

{ 


♦  »»***♦»«****«***»*  y 


struct  m)cs  m; 
struct  m_app_info  a; 
struct  m_node  *mnode; 
char  buf [ 80 ] ; 


for  (  ;  ;  )  { 

if  (fgets(buf,  80, 
brea)c; 

buf [strlen  (buf) -1] 


fd)  ==  NULL) 
=  '  \0’  ; 
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St rcpy  (m .  name ,  strtok  (buf ,  *'  ")); 
strcpy (m.type,  strtok (NULL,  "  ")); 
m.size  =  atoi  (strtok (NULL,  ”  ")); 
m. decimal  =  atoi  (strtok (NULL,  "  ")); 

mnode  =  (struct  ni_node  *)  m_ins (&m_tree,  m) ;  /*  Insert  the  column  into  */ 

/*  the  tree  */ 

for  (  ;  ;  )  { 

if  (fgets  (a.name,  31,  fd)  ==  NULL) 
break; 

a . name [ St rlen (a . name) -1 ]  =  '\0'; 
if  (a.name [0]  ==  '\0') 
break; 

m_ains (&mnode->info,  a);  /*  Insert  the  table  info  */ 

/*  into  the  current  column*/ 

) 

} 

I 

save_mks_info (m) 
struct  m_node  *m; 

{ 

fprintf(fd,  "%s  %s  %d  %d\n",  m->inf o . name,  m->info.type, 
m->inf o . size ,  m->info . decimal) ; 
m,->info .  app_cur  =  m->info.app_head; 
while  (m->info . app_cur  1=  NULL)  { 

fprintf(fd,  "%s\n",  m->info.app_cur->info.name) ; 
m_ane.xt  (i  (m)->info)  ; 

} 

fprintf(fd,  "\n"); 
if  (m->lchild  1=  NULL) 

save_mks_info (m->lchild) ; 
if  (m->rchild  !=  NULL) 

save_mks_info (m->rchild) ; 

} 

mksinit  ( ) 

/******************-^****-)tnjt-**-**itit******-)t-**1k-*-***-*********nr*irjlr**-****^*irir****ir-^H** 

DESCRIPTION:  Connects  to  Oracle.  Loads  information 

needed  for  the  knowledge  source  from  the 
lAMS  tables  in  Oracle,  Displays  the 
information.  Deletes  the  trees  containing 
the  information,  and  disconnects  from 
Oracle . 


PARAMETERS :  None 

RETURNS:  None 

CALLS:  Oracle,  oracle_login,  ini_trees, 

get_table_inf o,  get_column_info, 
get_index_inf o,  show_table_inf o, 
show_column_inf o,  show_index_info, 
del_trees 

CALLED  BY :  None 

*»**»♦»*♦********♦***♦,,*»»**»********************»*********♦***************** ^ 

( 

tifdef  DEBUG 

printfC - Trying  to  connect  to  OracleXn")  ; 

#endi f 
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if  (oracle_login 0  !=  0)  {  /*  Error  connecting? 

fprintf ( iains_log,  " (MKS)  Unable  to  connect  to  Oracle  with  %s/%s\n", 
userid. arr, password. arr) ; 


exit { 0 ) ; 

} 

init_tree();  /*  Initialize  the  trees  */ 

#ifdef  DEBUG 

printfC - Loading  MKS  from  OracleXn"); 

#endif 

get_mks_info ( ) ;  /*  Load  MKS  info  */ 

#ifdef  DEBUG 

printfC - Saving  MKS  iams_mks.txt\n")  ; 

#endif 

save_mks_inf o (m_tree) ; 

#ifdef  DEBUG 

printfC - Exitting  from  OracleXn”); 

#endif 

EXEC  SQL  COMMIT  WORK  RELEASE; 


if  ( sqlca . sqlcode  !=  0)  { 

fprintf (iams_log,  "(MKS)  Unable  to  commit  work.Xn”); 
forintf (stderr,  "(MKS)  Unable  to  commit  work.Xn"); 

} 

) 

mksload  ( ) 

{ 

init_tree ( ) ; 
load  mks  inf o  ( ) ; 


mksstart  ( ) 

{ 

#ifdef  DEBUG 

printfC - Checking  for  iams_mks  .  txt \n" )  ; 

#endif 

if  {(fd  =  fopenCiams_mks.txt",  "rt"))  ==  NULL)  ( 
#ifdef  DEBUG 

printfC - Did  not  find  iams_mks  .  t  xt  Xn" )  ; 

#endif 

fd  =  fopenCiams_mks.txt",  "wt"); 
mks in it  ( )  ; 

V 

else  mksload  ( ) ; 

} 

mksquit  ( ) 

{ 

del_tree  ( ) ; 
f close ( f d) ; 

) 
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The  purpose 
code  modules 

FILE _ 

ATTACH. C 

C_TREE.C 

I_TREE,C 

IAMS_CONST.H 
lUI  .C 


M_TREE . C 

MKS  .  H 

OC.C 

STRUTIL.C 


lAMS  C  Source  Code 

of  this  table  is  to  describe  the  functionality  of  the  individual  C 
contained  in  the  lAMS  system. 

_ DESCRIPTION _ ^ ^ _ 

Procedural  Abbachmenba :  This  file  contains  the  intelligence 
of  the  Knowledge  Source.  ATTACH. C  locates  the  target 
column  (s)  in  the  KS  and  tries  to  establish  a  link  if  more 
than  one  target  column  is  given.  If  both  target  columns  are 
in  the  same  table,  no  link  is  needed;  however,  if  the  target 
columns  are  in  different  tables,  a  join  column  is  found,  if 
one  exists.  The  results  are  returned  to  KS.PC  to  be  passed 
on  to  QC.C. 

Column  Tree:  Contains  tree  and  list  routines  to  implement 
the  column  structure.  This  structure  consists  of  a  binary 
tree  where  each  node  in  the  tree  contains  column  information 
and  a  linked  list  of  tables  in  which  the  column  occurs.  Eac.h 
node  in  the  table  list  contains  table  information  and  a 
linked  list  of  index  names  that  occur  in  the  corresponding 
table . 

Index  Tree:  Contains  tree  and  list  routines  to  implement  the 
index  structure.  This  structure  consists  of  a  binary  tree 
where  each  node  in  the  tree  contains  index  information,  a 
table  name,  and  a  linked  list  of  column  names  comprising  the 
corresponding  index. 

lAMS  Constants:  This  is  a  header  file  containing  system 
definitions  and  constants  used  in  both  the  KS  and  MKS. 

Intelligent  Oser  Interface:  This  file  contains  the  function 
main.  It  contains  all  code  for  creating  the  user  interface 
and  the  intelligence  of  the  MKS.  Once  the  user  enters  the 
target  column (s)  and  search  constraints,  he/she  presses  the 
EXECUTE  button.  The  MKS  is  searched  to  find  the  location  of 
the  target  column  (s)  .  If  there  is  more  than  one  target 
column,  the  MKS  determines  if  they  are  in  the  same  KS .  If 
so,  a  single  KS  is  forked.  If  the  target  columns  are  in 
different  KS's,  the  user  is  prompted  to  choose  a  potential 
]oin  column.  Then,  two  KS's  are  forked.  The  query  and  query 
results  are  displayed. 

MKS  Tree;  This  file  contains  the  code  for  creating  and 
manipulating  the  MKS  tree.  Each  node  contains  a  column  name 
and  a  list  of  application  names  or  KS  names.  This  is  needed 
to  determine  which  columns  can  be  used  to  link  two  KSs. 

MKS  Data  Types:  Contains  the  data  type  definitions  used  by 
the  MKS. 

Query  Constructor;  This  code  is  called  from  KS.PC.  The 
target  column (s)  and  search  constraints  are  provided  along 
with  any  necessary  join  columns.  The  Query  Constructor 
builds  an  SQL  query  a  returns  it  in  a  character  string. 

String  Otilities ;  Contains  several  helpful  string  utilities. 
These  include  function  for  performing  case  conversion  and 
removing  leading  and/or  trailing  spaces. 
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FILE _ DESCRIPTION _ 

T_TREE.C  Table  Tree:  Contains  tree  and  list  routines  to  implement  the 

table  structure.  This  structure  consists  of  a  binary  tree 
where  each  node  in  the  tree  contains  table  information,  a 
linked  list  of  column  names  which  occur  in  the  table,  and  a 
linked  list  of  index  names  which  occur  in  the  table.  Each 
node  in  the  column  list  contains  column  information,  while 
each  node  in  the  index  list  contains  index  information. 

TYPES. H  Data  Types;  This  is  an  include  file  containing  the  data 

structure  definitions  for  the  KS . 
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/********»*♦********************»************♦***»******»***********»***■**’'***' 

PROGRAM  ATTACH. C 

Code  used  to  determine  column  locations,  target  relationships,  and  search 
priorities  by  searching  through  KS  tree  structures. 

Specification  designed  by: 

Peggy  Wright  in  support  of  lAMS  research 
Coded  by: 

Shannon  Thornton  15  AUG  92 

»***»******************»*******»******»»*******»**********»****»*********»***»/ 
#include  <stdio.h> 

#include  <string.h> 

♦include  "types. h" 

extern  struct  c_node  *c_tree; 
extern  struct  t_node  *t_tree; 
extern  struct  i_node  *i_tree; 

extern  FILE  *iams_log; 
extern  FILE  *iams_res; 
extern  char  app_name [NAMELENGTH ]  ; 

int  priority (key ,  nullable,  idx_head) 
char  key [4],  nullable; 
struct  c_inode  *idx_head; 

i 

if  ((key[0]  ==  'Y')  &&  (key[l]  ==  'N')) 

return  LEVEL6;  /*  Primary  —  Not  foreign  */ 
else  if  ((key[0]  ==  'Y')  &&  (key[l]  ==  'Y'); 

return  LEVELS;  /*  Primary  and  Foreign  */ 
else  if  !key[l]  ==  'Y') 

return  LEVEL4;  /*  Foreign  —  Not  primary  */ 
else  if  {key[0j  ==  'N') 

return  LEVELS;  /*  It  is  a  key  —  Just  Not  primary  or  foriegn  * / 
else  if  (idx_head  !=  NULL) 

return  LEVEL2;  /*  It's  in  an  index  —  Not  primary  or  foreign  ’ / 
else  if  (nullable  ==  'N') 

return  LEVELl;  /*  Not  Nullable  */ 
else  return  LEVELO;  /*  It  exists  */ 


t ind_relat ion (t 1 ,  t2,  tltabJe,  jc,  t2table) 
char  *tl,  *t2,  *t]table,  *jc,  *t2table; 

{ 

int  tpri  =  NOPRI,  tpri2  =  NOPRI,  pri  =  NOPRI,  tpri3  =  NOPRI; 

struct  c_node  *tlcnode,  *t2cnode; 

struct  i_node  *tlinode,  *t2inode; 

struct  t_node  *tltnode,  *t2tnode; 

struct  c_tab_info  *tltabinfo,  *t2tabinfo; 

struct  t_col_info  tlcolinfo,  t2colinfo; 

/* -  Be  sure  both  columns  exist  before  proceeding.  - */ 

tlcnode  =  (struct  c_node  *)  c_f ind (c_tree,  tl); 
tPcnode  =  (struct  c_node  *)  c_f ind (c_tree,  t2)  ; 
if  ((tl[0]  !=  NULL)  &&  (tlcnode  ==  NULL))  { 

fprintf (iams_log, "%s :  Could  not  find  %s  in  the  KS.\n", 
app_name,  tl); 
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return  NOT_FOUND; 

} 

if  <(t2[0]  NULL)  &&  (t2cnode  -=  NULL))  ( 

fprintf (iams_log, "%s :  Could  not  find  %s  in  the  KS.\n", 
app_narae,  t2)  ; 
return  NOT  FOUND; 


tltable[0]  =  '\0'; 

/* - See  if  only  one  column  was  passed  'n.  - * 

if  ((tlcnode  ==  NULL)  &&  (t2cnode  !=  NOLL))  ( 

t2cnoCe-> i nf o . tbl_cur  =  t2cnode->inf c . tbl_head; 
while  (t2cnode->inf o . tbl_cur  !=  NULL)  ( 

if  (  (tpri  =  priority  (t2cnode->info . tbl_cur->info . key , 
t2cnode->info . tbl_cur->info . nullable, 
t2cnode->info.tbl_cur->info.id.x_head)  )  >  pri)  { 

pri  =  tpri; 

St  rcpy 't Itable, t2cnode->info . tbl_cur->info . name ) ; 

printfC'KS:  %s  is  a  priority  %d  table  for  %s . \n” , t Itable , ori , 1 1 )  ; 

) 

c_tne.xt  (&t2cnode->info)  ; 

) 

return  T3L; 

; 

if  (  (t2cnode  ==  NULL)  44  (tlcnode  !=  NULL))  { 

t lcnode->info . tbl_cur  =  t lcnode->info . tbl_head; 
while  ( t lcnode->inf o . tbl_cur  1=  NULL)  ( 

if  ((tpri  =  priority  {tlcnode->inf(..tbl_cur->info. key, 
t 1 cnode- > in fo.tbl_cur-> info. nullable, 
t lcnode->inf o . tbl_cur->inf o . idx_head) )  >  pri)  / 
pri  =  tpri; 

strcpy  (tit  able,  t  lcnode->info  .  tbl_cur->ir.f  o  .  name )  ; 

printfC'KS:  %s  is  a  priority  %d  table  for  %s . \n" , t Itable, pri , t 1) ; 

} 

c_tne.xt  (  4t  lcnode->info)  ; 

) 

return  TBL; 

/*--  Try  to  find  a  match  in  the  table  lists.  If  found  return  best  match. 
tlcnode->info.tbl_cur  =  tlcnode->info.tbl_head; 
while  (tlcnode->info .tbl_cur  !=  NULL)  { 

t2cnode->inf o . tbl_cur  =  t2cnode->inf o . tbl_head; 
while  (t2cnode->inf o . tbl_cur  !=  NULL)  { 

if  (strcmp {tlcnode->info.tbl_cur->info.name, 
t2cnode->info .tbl_cur->info.name)  ==  0) 
if  (((tpri  =  priority  (tlcnode->info .tbl_cur->info . key , 
t lcnode->inf o . tbl_cur->info . nullable, 
tlcnode->info.tbl_cur->info. idx_head) )  >  pri)  || 

( (tpri2  =  priority (t2cnode->info.tbl_cur->info. key, 
t2cnode->info . tbl_cur->info . nullable, 
t2cnode->info . tbl_cur->info . idx_head) )  >  pri))  ( 

pri  =  max  (tpri, tpri2) ; 

strcpy (t Itable, t lcnode->info . tbl_cur->inf o . name) ; 
printfC'KS:  %s  is  a  priority  %d  table  for  %s  and  %s.\n". 
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tltable,pri,tl,t2) ; 

} 

c_tne.xt  ( &t2cnode->inf o)  ; 

c_tnext ( &t 1 cnode->inf o) ; 

-f  (tltabie  [0]  !=  ' \0' ) 

return  TBL; 


/» - Find  best  potential  join  columns - *■/ 

t lcnode->inf o . tbl_cur  =  tlcnode->info.tbl_head; 
while  (tlcnode->info.tbl_cur  !=  NULL)  { 

t2cnode->inf o . tbl_cur  =  t2cnode->info . tbl_head; 
while  (t2cnode->inf o . tbl_cur  !=  NULL)  { 

if  ( (tltnode  =  (struct  t_node  *)  t_f ind (t_tree, 

tlcnode->info.tbl_cur->info.name) )  ==  NULL)  i 
fprintf (iams_log, "%s :  Inconsistency  in  the  KS.\n",  app_name) ; 
fprintf (iams_log,  "%s  is  listed  as  a  table  for  %s,  \n", 

tlcnode->info.tbl_cur->info.name,  tlcnode->info . name) ; 
fprintf (iams_log, "but  this  table  was  not  found  in  the  table  tree.Xn”) 

} 

else  if  ( (t2tnode  =  (struct  t_node  *)  t_f ind (t_tree , 

t2cnode->info . tbl_cur->info . name) )  ==  NULL)  { 
fprintf (iams_log, "%s :  Inconsistency  in  the  KS.Xn”,  app_name) ; 
fprintf  (iams_log,  "%s  is  listed  as  a  table  for  %s,\n'', 

t2cnode->info . tbl_cur->info . name,  t2cnode->inf o . name) ; 
fprint f ( iams_log, "but  this  table  was  not  found  in  the  table  tree.Xn") 

} 

else  ( 

t ltnode->info . col_cur  =  tltnode->info.col_head; 
while  (tltnode->info.col_cur  !=  NULL)  { 

t2tnode->inf o . col_cur  =  t2tnode->info . col_head; 
while  (t2tnode->info,col_cur  1=  NULL)  ( 

if  (strcmp ( t It node->info.col_cur-> info. name, 
t2tnode->info.col_cur->info.name)  ==  0)  { 
tlcoiinfo  =  tltnode->info.col_cur->info; 
t'  olinfo  =  t2tnode->info.col_cur->info; 

/*  Find  JC  priority  */ 

tpri  =  priority  (tlcoiinfo.  )cey,  t  Icolinfo  .  nullable, 
tltnode->info. idx_head) ; 

tpri2  =  priority (t2colinfo. key , t2colinfo . nullable, 
t2tnode->info. idx_head) ; 
tpri3  =  max (tpri, tpri2)  *  10; 

/*  Find  the  column (s)  priority  */ 

tpri  =  priority (tlcnode->info.tbl_cur->info. key, 
t 1 cnode-> in fo.tbl_cur->info. nullable, 
t lcnode->info . tbl_cur->inf o . idx_head) ; 
tpri2  =  priority (t2cnode->info.tbl_cur->info. key, 
t2cnode->info . tbl_cur->inf o .nullable, 
t2cnode->info . tbl_cur->info . idx_head) ; 
tpri3  =  tpri3  +  max (tpri, tpri2 ) ; 
if  (tpri3  >  pri)  { 
pri  =  tpri3; 

strcpy (tltabie, tltnode->info . name) ; 

St  ropy ( jc, tlcoiinfo. name) ; 

strcpy (t2table, t 2t node- > info . name) ; 
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printfC'KS:  %s  is  a  priority  %d  jc  for  %s  and  %s.\n 

jc, pri , t 1 , t2) ; 

} 

t_cnext (&t2tnode->info) ; 

} 

t_cnext  (itltnode->info) ; 

} 

) 

c_tnext ( &t2cnode->inf o) ; 

} 

c_tnext (&tlcnode->info) ; 

} 

if  (tltable [0]  1=  NULL) 

return  TBL_COL_TBL; 
else  return  NO  DATA; 
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^■*fr*-^*******it 


PROGRAM  C_TREE.C 

Project  specifications  developed  by: 

Peggy  Wright  in  support  of  lAMS  research 
Code  written  by: 

Shannon  Thornton  03  AUG  92 


Contains  the  necessary  routines  to  create,  manipulate,  and  dispose  of  a 
binary  tree.  Each  node  in  the  tree  contains  a  column  name,  data  type, 
data  size,  number  of  decimal  places  (if  numeric) ,  and  a  linked  list  of 
tables.  The  list  contains  all  table  names  in  which  the  column  is  used. 
There  is  a  linked  list  stored  in  each  node  of  the  table  list.  This  list 
contains  the  names  of  all  indexes  used  in  the  current  table  that  reference 
the  current  column.  See  TYPES. H  for  the  structure  definitions. 


Naming  Convention 

Functions  used  for  manipulating  the  tree  or  list  structure  begin  with  the 
first  letter  of  the  structure  used.  For  example,  to  insert  a  column  into 
the  column  tree,  c_ins ( . . )  is  called.  The  c_  indicates  the  function  uses 
the  column  tree  structure.  All  functions  that  manipulate  the  table  list 
inside  a  node  in  the  column  tree  begin  with  c_t .  Any  function  that 
manipulates  the  index  list  inside  the  previously  mentioned  table  list 
begins  with  c_i .  All  table  tree  functions  start  with  t_,  and  all  index 
tree  functions  start  with  i_.  This  convention  is  also  used  for  global 
tree  variables,  c_tree,  t_tree,  and  i_tree,  which  reference  the  column 
tree,  table  tree,  and  index  tree,  respectively. 


#include  <string.h> 
♦include  <stdio.h> 
♦include  <malloc.h> 
♦include  "types. h" 


Qyobal  Tree  Variables 

struct  c_node  *c_tree;  /*  Pointer  to  the  column  tree  */ 

int  cmp;  /*  Temporary  variable  used  in  find  and  insert  */ 

/*  Since  find  and  insert  are  recursive  procedures  */ 
/*  the  temporary  variable  is  declared  global.  If  */ 
/*  it  was  declared  locally,  it  would  be  */ 

/*  re-allocated  on  the  stack  for  every  function  */ 
/*  call.  */ 


/* 


*  Function  definitions  * 


*/ 


—  —  —  —  —  —  —  —  —  —  ★  *  ★  ♦  ★  *  *  *  ♦  —  —  _  — 

Tree  Functions 

/*  —  —  —  —  _  —  —  *  *  *  *  *  *  *  ** 


c_shownode (info) 
struct  column  info; 


/***♦»»**♦*♦*♦*************************************»*************************** 
DESCRIPTION:  Prints  the  contents  of  info  to  standard 


PARAMETERS : 
RETURNS : 
CALLS : 


output . 

struct  column  info 

None 

None 
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CALLED  BY:  c_lnr 

{ 

pr int f ( " %-30s  %-9s  %3d  ",  info. name,  info. type,  info. size); 
if  ( info . type [ 0 ]  ==  'N')  printf ("%d\n", info. decimal) ; 
else  printf  ("\n")  ; 

} 

c_init  0 

DESCRIPTION:  Initializes  the  global  tree  variable  c_tree 

to  NULL. 

PARAMETERS:  None 

RETURNS:  None 

CALLS :  None 

CALLED  BY:  (KS.PC)  init_trees 

***********’****ir****ir*-K*irfriefr*ik**ifrr*iHr*ir*iritW*irir**irK*************n****ie*****irTt**/ 

{ 

c_tree  =  NULL; 

) 

c_store(t,  info) 
struct  c_node  *t; 
struct  column  info; 

DESCRIPTION:  Puts  the  contents  of  info  into  the  info 

field  of  the  c_node  pointer  t. 

PARAMETERS:  Struct  c  node  *t,  struct  column  info 

RETURNS:  None 

CALLS:  None 

CALLED  BY :  c_ins 

*»»******»*»**»*»»•**»»♦******»**»,**»***************»*********»****,***,**„*«« ^ 

{ 

t->parent  =  NULL; 
t->lchild  =  NULL; 
t->rchild  =  NULL; 
t->info  =  inf o; 

) 

struct  c_node  *c_ins(t,  info) 
struct  c_node  **t; 
struct  column  info; 

/**♦***************«*****»**«****■*****»******■»************♦♦*•»*******■*♦■***»*■**■* 
DESCRIPTION:  Creates  a  node  in  the  tree  pointed  to  by  t, 

and  stores  the  contents  of  info  in  that 
node.  If  a  node  already  exists  with  the 
same  )cey  field,  a  message  is  printed 
warning  the  user.  If  there  is  insufficient 
memory  to  allocate  the  new  node,  a  warning 
is  printed. 

PARAMETERS:  struct  c_node  **t,  struct  column  info 

RETURNS:  Pointer  to  the  new  node.  If  a  node  already 

exists  with  the  same  key  field,  a  pointer 
to  that  node  is  returned.  If  there  is 
insufficient  memory,  NULL  is  returned. 

7ALLS :  c_store,  c  tinit,  c  ins 


110 


^pendlx  D  C  Code 


Oct  11  17:46  1992  c_tree.c  Page  3 


CALLED  BY:  (KS.PC)  get_column_inf o 

I 

if  (»t  ==  NULL)  { 

*t  =  (struct  c_node  *)  malloc  (sizeof (struct  c_node) ) ; 
if  (*t  ==  NULL)  ( 

printf {" (column  insert):  Out  of  memoryVn") ; 
return  NULL; 

} 

c_store(*t,  info) ; 
c_tinit (& (*t) ->info)  ; 
return  *t; 

) 

else  { 

cmp  =  strcmp (info. name,  (’t) ->info.name) ; 

if  (cmp  <  0)  return  c_ins (a (»t) ->lchild,  info) ; 

else 

if  (cmp  >  0)  return  c_ins (& (»t) ->rchild,  info) ; 
else  { 

printf ("**♦  DUPLICATE  KEY  (%s)  ***\n”, info . name) ; 
return  *t; 

> 

} 

] 

c_deltree (t) 
struct  c_node  ‘t; 

/**********-k1r-k**-k-k-kt*ir*****-k-k*-k******ic1i-kifir**ii1t****1ri,iririiiit,ir*irir*i,-**iiitit-kir**-k-ki(1t*** 

DESCRIPTION:  Deletes  the  entire  tree  pointed  to  by  t. 

PARAMETERS:  struct  c  node  *t 

RETURNS :  None 

CALLS:  c_deltree,  c_tdeltree 

CALLED  BY:  (KS.PC)  del_trees 

****************************r******t:********i,*****ti,***-,*i,H,*i,i,i,i,i,i,i,1,i,i,,i,i,i,^,^,i,^ 

I 

if  (t->lchild  !=  NULL)  { 
c_deltree (t->lchild) ; 
t->lchild  =  NULL; 

} 

if  (t->rchild  !=  NULL)  { 
c_deltree (t->rchild) ; 
t->rchild  =  NULL; 

) 

c_tdelrest (&t->info,  t->info.tbl_head) ; 
free  (t) ; 

} 

struct  c_node  *c_find(t,  name) 
struct  c_node  *t; 
char  ’name; 

/**************1,***-Hr****i,*i,1,1,-i,t**-k**1,**1,****»1,**1,**i,1lfl>*1n,1t****1,-t:*1,i,1,1,i,i,i,i,.i,ti,i, 

DESCRIPTION:  Searches  the  tree  pointed  to  by  t  for  the 

node  containing  name. 

PARAMETERS:  struct  c_node  *t,  char  ’name 

RETURNS:  Pointer  to  the  node  containing  name,  or 

NULL  if  not  found 
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CALLS:  c__find 

CALLED  BY:  c_find 

{ 

if  (t  ==  NULL)  return  NULL; 

cmp  =  St rcmp (name, t-> inf o . name) ; 

if  (cmp  <  0)  return  c_f ind (t->lchild,  name) ; 

else 

if  (cmp  >  0)  return  c_f ind (t->rchild,  name) ; 
else  return  t ; 

) 

struct  c_node  *c_left(t) 
struct  c__node  ♦*t; 

DESCRIPTION:  Changes  t  to  point  to  its  own  left  child. 

If  t  is  NULL  upon  calling  the  function, 

nothing  is  changed. 

PARAMETERS:  struct  c_node  **t 

RETURNS:  Returns  a  pointer  to  t's  left  child.  If  t 

is  NULL,  NULL  is  returned. 

CALLS :  None 

CALLED  BY:  None 

■*«-»«****:it**«****'«’**»'**«*’*’iir'*'»*'*«''*’-*-«r**«r«-*’**’'******«***'-*«*'*«w**«--*«*«*»'**«**«-*«»*«*/ 

{ 

If  (*t  !=  NULL)  *t  =  (*t) ->lchild; 
return  *t; 

} 

struct  c_node  *c_right(t) 
struct  c_node  **t; 

DESCRIPTION:  Changes  t  to  point  to  its  own  right  child. 

If  t  is  NULL  upon  calling  the  function, 
nothing  is  changed. 

PAPvAMETERS :  struct  node  **t 

RETURNS:  Returns  a  pointer  to  t's  right  child.  If  t 

is  NULL,  NULL  is  returned. 

CALLS :  None 

CALLED  BY :  None 

*******»»»*******««***«***«****************»******************«***************y 

{ 

if  (*t  !=  NULL)  *t  =  (*t) ->rchild; 
return  *t; 

) 

c_lnr (t ) 

struct  c_node  *t; 

/*»*****»*************************»*************»*************»**************** 
DESCRIPTION:  Performs  an  Inorder  traversal  (LNR)  of  the 

tree  pointed  to  by  t  while  displaying  the 
contents  of  each  node  as  it  is  visited. 

PARAMETERS;  struct  c_node  *t 

RETURNS:  None 

CALLS:  c_lnr,  c_shownode 

CALLED  BY :  c  Inr 
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I 

if  (t->lchild  !=  NULL)  c_lnr {t->lchild) ; 
c_shownode (t->info)  ; 

if  (t->rchild  .' =  NULL)  c_lnr  (t->rcliild)  ; 


!  *  —  —  —  —  —  —  —  —  —  —  —  ——  »  *  *  *  ★  *  it  tt  * 

/*  *  Table  List 

Functions 

/*  —  —  —  —  —  —  —  —  —  —  —  —  —  *  ★  H  *  «  *  *  *  «  ★  —  —  —  —  —  —  _  —  _  —  _  —  _  — 

c_tinit (c) 
struct  column  ^c; 

DESCRIPTION:  Initializes  ti^e  table  list  pointers: 

tbl_cur,  tbl_head,  and  tbl  tail. 

PARAMETERS:  struct  column  *c 

RETURNS :  None 

CALLS :  None 

CALLED  BY:  c  ins 

{ 

c->tbl_cur  =  c->tbl_head  =  c->tbl_tail  =  NULL; 


*/ 
*  / 

*■  / 

*  / 


*  / 


c_tins (c,  info) 
struct  column  ’c; 
struct  c_tab_info 

DESCRIPTION: 


PARAMETERS: 
RETURNS : 
CALLS : 
CALLED  BY: 


info; 

Creates  a  new  node  at  the  end  of  the  table 
list  and  stores  the  contents  of  info  in  the 
node.  If  there  is  insufficient  memory  to 
create  the  node,  a  message  is  printed, 
struct  column  *c,  struct  c_tab_info  info 
None 
c_iinit 

(KS.PC)  get  column  info 


; 


if  (c->tbl_tail  1=  NULL)  { 

^~^tbl_tail'>next  =  (struct  c_tnode  *)  malloc (sizeof (struct  c  tnode) ) ; 
if  (c->tbl_tail->next  ==  NULL)  (  ~ 

printf (" (column/table  list  insert):  Out  of  memoryXn"); 
return  NULL; 


c->tbl_tail->next->prev  =  c->tbl_tail; 
c->tbl_tail  =  c->tbl_tail->next ; 
c->tbl_tail->inf o  =  info; 
c->tbl_tail->next  =  NULL; 

) 

else  ( 

c->tbl_tail  =  (struct  c_tnode  *)  malloc (sizeof (struct  c  tnode)); 
if  (c->tbl_tail  ==  NULL)  { 

print f ("  (column/table  list  insert):  Out  of  memoryXn") ; 
return  NULL; 

i 
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c->tbl_head  =  c->tbl_tail; 
c->tbl_tail->next  =  NULL; 
c->tbl_head->prev  =  NULL; 
c->tbl_tail- >info  =  info; 

) 

c_iinit ( & c->tbl_tai l->inf o) ; 

1 

c_tdel (c,  node) 
struct  column  *c; 
struct  c_tnode  *node; 

DESCRIPTION:  Deletes  node,  pointed  to  by  node,  from  the 

table  list. 

PARAMETERS:  Struct  column  "c,  struct  c_tnode  *node 

RETURNS:  None 

CALLS:  c_idelrest 

CALLED  BY:  c  tdelrest 

★  ♦■***-***'******.*****.'7’********»********»*#.***-*'***********«-*»******'.**#***********/ 

{ 

if  (node  ==  NULL)  return; 

if  ((node  ==  c->tbl_head)  I!  (node  ==  c->tbl_ tai 1 ) )  ( 

if  (node  ==  c->tbl_head)  { 
c->tbl_head  =  node->next; 

if  (c->tbl_head  !=  NULL)  c->tbl_head->prev  =  NULL; 

i 

if  (node  ==  c->tbl_tail)  f 
c->tbl_tail  =  node->prev; 

if  (c->tbl_tail  1=  NULL)  c->tbl  tail->ne.xt  =  NULL; 

) 

i 

else  { 

node->prev->next  =  node->next; 
node->next->prev  =  node->prev; 

c_idelrest  ( 5inode->inf  o,  node'>inf  o  .  idx_head)  ; 
free (node) ; 


c_tdelrest (c,  node) 
struct  column  *c; 
struct  c  tnode  *node; 

DESCRIPTION:  Deletes  all  nodes  from  node  to  tbl_tail 

(current  node  to  end  of  list)  from  the 
tabl--'  list. 

PARAMETERS:  struct  column  *c,  struct  c_tnode  *node 

RETURNS :  None 

CALLS:  c  tdel 

CALLED  BY:  c_deltree 

{ 

struct  c_tnode  *tmp; 

while  (node  !=  NULL)  ( 
tmp  =  node->next; 
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c_tdei  (c,  node)  ; 
node  =  tmp; 

} 

struct  c_tnode  *'c_tfind(c,  name) 
struct  column  *c; 
char  *name; 

DESCRIPTION:  Searches  the  table  list  for  a  node 

containing  name. 

PARAMETERS:  struct  column  'c,  char  *name 

RETURNS:  Pointer  to  the  next  node 

CALLS:  None 

CALLED  BY :  None 

( 

Struct  c_tnode  *tmp; 

) 

struct  c_tnode  *c_tnext(c) 
struct  column  *c; 

DESCRIPTION:  Advances  the  tbl_cur  pointer  in  c  to  the 

next  node  in  the  table  list. 

PARAlMETERS  :  struct  column  »c 

RETURNS:  Pointer  to  the  next  node 

CALLS :  None 

CALLED  BY:  show_column_inf o 

******^*1tit*^*-0^-t,i,-»-t**-t:*-^-^^*-^-ttn***t,**iiiftrii*****-ti****itifk1i-t<***ii***ii**********it*itir*/ 

{ 

if  (c->tbl_cur  !=  NULL)  c->tbl  cur  =  c->tbl  cur->next; 

) 

struct  c_tnode  *c_tprev(c) 
struct  column  *c; 

/■^******t*************-t^tt*****^***tt*-t:-H,t****t:1,**i,**i,1,tr***1,t**ti,i,*i,1,i,i,-n,i,t-fi,i, 

DESCRIPTION:  Move  the  tbl_cur  pointer  in  c  to  the 

previous  node  in  the  table  list. 

PARAMETERS:  struct  column  *c 

RETURNS:  Pointer  to  the  previous  node 

CALLS :  None 

CALLED  BY :  None 

************1>****************t,t-H*»*t*»-»1,t*******fl.**1l**1,1H,i,*1,1,1,i,1,i,i,t,*i,i,t*****/ 

{ 

if  (c->tbl_cur  !=  NULL)  c->tbl  cur  =  c->tbl  cur->prev; 

} 

/*  —  —  —  —  —  —  —  -  —  _  —  —  _  *  *  *  *  *  *  *  *  *  *  — 

Index  List 
Functions 

/*  *  *  *  *  *  *  *  *  *  *  __ 

c_iinit (c) 

struct  c_tab_info  *c; 

/****♦*****************, ***************************^***, *********** ,***,jn^^^** 

DESCRIPTION:  Initializes  the  index  list  pointers  stored 
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in  c . 

PARAMETERS:  struct  c_tab_info  *c 

RETURNS:  None 

CALLS :  None 

CALLED  BY:  c_tins 

c->idx_cur  =  c->idx_head  =  c->idx_tail  =  NULL; 

} 

c_iins(c,  info) 
struct  c_tab_info  ’c; 
struct  c_idx_info  info; 

/*********»*******»****-*»*#*-**W*#T»*****H-****#***#*************l^*»*******-****** 

DESCRIPTION:  Creates  a  new  node  in  the  index  list  and 

stores  the  contents  of  info  in  that  node. 

If  there  is  insufficient  memory  to  create 
the  new  node,  a  message  is  printed. 

PARAMETERS:  Struct  c_tab_info  ’c,  struct  c_idx_info 

info 

RETURNS :  None 

CALLS:  None 

CALLED  BY:  (KS.PC)  get_column_inf o 

♦  ★★••■★★★★♦♦★★★★■(r'*'**«*********************«^******#******************#********** 

{ 

if  (c->idx_tail  !=  NULL)  { 

c->id.x_tail->next  =  (struct  c_inode  *)  malloc (sizeof (struct  c_inode) ) ; 
if  (c->idx_tail->next  ==  NULL)  { 

printf ( " (column/table/index  list  insert):  Out  of  memoryVn"); 
return  NULL; 

) 

c->idx_tail->next->prev  =  c->id.x_tail; 
c->idx_tail  =  c->idx_tail->next; 
c->idx_tail->inf o  =  info; 
c->idx_tail->next  =  NULL; 

) 

else  ( 

c->idx_tail  =  (struct  c_inode  *)  malloc (sizeof (struct  c_inode) ) ; 
if  (C->idx_tail  ==  NULL)  ( 

print f {" (column/table/index  list  insert):  Out  of  memoryXn”) ; 
return  NULL; 

} 

c->idx_head  =  c->idx_tail; 
c->idx_tail->next  =  NULL; 
c->idx_head->prev  =  NULL; 
c->idx_tail->info  =  info; 

) 

) 

c_idel (c,  node) 
struct  c_tab_info  *c; 
struct  c_inode  *node; 

y***»***»****»**»*»***»»************»******»****»**********»»***»************* 
DESCRIPTION:  Deletes  the  node,  pointed  to  by  node,  from 

the  index  list. 

PARAMETERS:  struct  c  tab  info  *c,  struct  c_inode  ‘node 
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RETURNS :  None 

CALLS :  None 

CALLED  BY :  c_idelrest 


if  (node  ==  NULL)  return; 

if  ( (node  ==  c->idx_head)  I |  (node  ==  c->idx_tail) )  I 
if  (node  ==  c->idx_head)  { 
c->idx_head  =  node->next; 

if  (c->idx_head  !=  NULL)  c->idx_head->prev  =  NULL; 

} 

if  (node  ==  c->idx_tail)  { 
c->idx_tail  =  node->prev; 

if  (c->idx_tail  !=  NULL)  c->idx_tail->next  =  NULL; 

} 

) 

else  ( 

node->prev->next  =  node->next; 
node->next->prev  =  node->prev; 

} 

free (node) ; 


c_idelrest (c,  node) 
struct  c_tab_info  *c; 
struct  c_inode  *node; 

DESCRIPTION:  Deletes  all  nodes  from  the  index  list  that 

come  after  and  including  the  node  pointed 
to  by  node. 

PARAMETERS:  Struct  c_tab_info  *c,  struct  c_inode  *node 

RETURNS:  None 

CALLS:  c_idel 

CALLED  BY:  c_tdel 

{ 

struct  c_inode  *tmp; 

while  (node  1=  NULL)  ( 
tmp  =  node->next; 
c_idel(c,  node) ; 
node  =  tmp; 


struct  c_inode  *c_ifind(c,  name) 
struct  c_tab_info  *c; 
char  *name; 

/*********************************»*************************»************,***** 


DESCRIPTION: 

PARAMETERS : 
RETURNS ; 
CALLS : 

CALLED  BY: 


Searches  the  index  list  for  a  node 
containing  name. 

struct  c_tab_info  *c,  char  ‘name 
Pointer  to  the  next  node 
None 
None 


117 


Appendix  D  C  Code 


Oct  11  17:46  1992 


( 

struct  c_inode 

} 

struct  c_inode  *c 
struct  c_tab_info 

DESCRIPTION: 

PARAMETERS : 
RETURNS : 

CALLS : 

CALLED  BY: 

/ 

if  {c->idx_cur 

} 

struct  c_inode  *c 
struct  c_tab_info 
/★'**★***•»**■★★*•★**■• 
DESCRIPTION: 

PARAMETERS : 
RETURNS : 

CALLS: 

CALLED  BY: 

Irirfririelriririeitiririeiritifir^ 

{ 

if  (c->idx_cur 

} 
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*tmp; 


inext  (c) 

*c; 

■★^★★'♦★'♦★★★★*jr***************i^***»-A^**->»-T*-*****7»***^****'*’*'»****‘** 

Advances  the  idx_cur  pointer  stored  in  c  to 
the  next  node  in  the  index  list, 
struct  c_tab_info  *c 

Pointer  to  the  next  node  in  the  index  list. 

None 

show_column_inf o 

•**-**-*-***'*;*it*-*'*r-*'*-**-*-^-**'****-**-***-*'#r^-*'*-fc'*-*-*'****'**'*'***'*'»'*r'*'*-'*»'»**/ 


!=  NULL)  c->idx  cur  =  c->idx  cur->next; 


iprev (c) 

’*c; 

'★★★★★★^^★★^^★★★★★★★★★★★★★★★★★★★*****i^**'*»-*»*******'***-'^*'*****^* 

Changes  the  idx_cur  pointer  stored  in  c  to 
the  previous  node  in  the  index  list, 
struct  c_tab_info  »c 

Pointer  to  the  previous  node  in  the  index 
list . 

None 

None 

te*********itie1t*-k**-k*-k*****i(**ie*1rit1iic**ieitiriiir*irlr-*’k-**it**irit****ie**/ 

1=  NULL)  c->idx_cur  =  c->idx_cur->prev; 
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/■*-»****»*********-***********-»******»r*Jt**'*****^'****-**-******-****-**-*-*^**'*^'*’»**^**'*’ 

PROGRAM  I_TREE.C 

Froject  specifications  developed  by: 

Peggy  Wright  in  support  of  lAMS  research 
Code  written  by: 

Shannon  Thornton  03  AUG  92 

Contains  the  necessary  routines  to  create,  manipulate,  and  dispose  of  a 
binary  tree.  Each  node  in  the  tree  contains  an  index  name,  table  name, 
unique  flag,  and  a  linked  list  of  columns.  The  list  contains  all  column 
names  used  by  the  index.  See  TYPES. H  for  structure  definitions. 

Naming  Convention 

Functions  used  for  manipulating  the  tree  or  list  structure  begin  with  the 
first  letter  of  the  structure  used.  For  example,  to  ir»sert  a  column  into 
the  column  tree,  c_ins ( . . )  is  called.  The  c_  indicates  the  function  uses 
the  column  tree  structure.  All  functions  that  manipulate  the  table  list 
inside  a  node  in  the  column  tree  begin  with  c_t .  Any  function  that 
manipulates  the  index  list  inside  the  previously  mentioned  table  list 
begins  with  c_i .  All  table  tree  functions  start  with  t_,  and  all  index 
tree  functions  start  with  i_.  This  convention  is  alio  used  for  global 
tree  variables,  c_tree,  t_tree,  and  i_tree,  which  reference  the  column 
tree,  table  tree,  and  index  tree,  respectively. 

#include  <string.h> 

#include  <stdio.h> 

#include  <malloc.h> 

#include  "types. h" 


struct  i_node  *i_tree; 
int  cmp; 


*  Global  Tree  Variables 

Pointer  to  the  index  tree  */ 
/•  "amporary  variable  used  in  find  and  insert  */ 
/*  Since  find  and  insert  are  recursive  procedures  */ 
/*  the  temporary  variable  is  declared  global.  If  */ 
/*  it  was  declared  locally,  it  would  be  */ 
/*  re-allocated  on  the  stack  for  every  function  */ 
/*  call.  */ 


*  Function  definitions  ♦/ 

Tree  Functions 

i_shownode ( info) 
struct  index  info; 

DESCRIPTION:  Prints  the  contents  of  info  to  standard 

output . 

PARAMETERS:  struct  inuex  info 

RETURNS:  None 

CALLS :  None 

CALLED  BY:  i_lnr 

★ 

{ 
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printf  (  "%-32s  %-32s\n", info. name,  info.tbl_name) ; 


i_init  ( ) 

^**»»*»*******»**»-»**********»**»******»**-»»********»»**»*******»***»**»**»**»» 
DESCRIPTION:  Initializes  the  global  tree  variable  i_tree 

to  NULL. 

PARAMETERS :  None 

RETURNS :  None 

CALLS ;  None 

CALLED  BY:  (KS.PC)  init_trees 

*•*■★*★*★*•**★★★■•  ♦•★★★★■*-ik-****'**-*****************-********'*-*****^************»**^***»;' 

( 

i_tree  =  NULL; 

} 

i_store (t,  info) 
struct  i_node  *t; 
struct  index  info; 

/★■♦★♦★★★★★*****»*»******H'**-**'***********^*********r***********»-*****************' 

DESCRIPTION:  Puts  the  contents  of  info  into  the  info 

field  of  the  i_node  pointer  t. 

PARAMETERS:  struct  i_node  *t,  struct  index  info 

RETURNS:  None 

CALLS :  None 

CALLED  BY:  i_ins 

★  **<r*'*ir*T»**»***<r*********Tr********jk***********-*****-****'*-*A*********'*^*'*****'**»/' 

{ 

t->parent  =  NULL; 
t->lchild  =  NULL; 
t->rchiid  =  NULL; 
t->inf o  =  inf o; 

) 

struct  i_node  *i_ins(t,  info) 
struct  i_node  **t; 
struct  index  info; 

DESCRIPTION:  Creates  a  node  in  the  tree  pointed  to  by  t, 

and  stores  the  contents  of  info  in  that 
node.  If  a  node  already  exists  with  the 
same  )cey  field,  a  message  is  printed 
warning  the  user.  If  there  is  insufficient 
memory  to  allocate  the  new  node,  a  warning 
is  printed. 

PARAMETERS:  struct  i_node  **t,  struct  index  info 

RETURNS:  Pointer  to  a  new  node  containing  info.  If 

a  node  already  exists  with  the  same  Icey 
field,  a  pointer  to  that  node  is  returned. 

If  there  is  insufficient  memory,  NULL  is 
returned . 

CALLS:  i_ins,  i_store,  i_cinit 

CALLED  BY:  (KS.PC)  get_index_inf o,  i_ins 

*****♦**»************************»**♦**********»**♦*******♦**************♦****/ 

{ 

if  (*t  ==  NULL)  ( 
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*t  =  (struct  i_node  *)  malloc  (sizeof  (struct  i_nocie)  )  ; 
if  (*t  ==  NULL)  { 

print f (”( index  insert):  Out  of  memory\n" ) ; 
return  NULL; 

} 

i_store(*t,  info) ; 
i_cinit (& (*t) ->in£o) ; 
return  *t; 

} 

else  { 

cmp  =  strcmp (info. name,  (*t) ->info.name) ; 

if  (cmp  <  0)  return  i_ins (4 {*t) ->lchild,  info) ; 

else 

if  (cmp  >  0)  return  i_ins (4 (*t) ->rchild,  info) ; 
else  { 

printfC'***  DUPLICATE  KEY  (%s)  *** \n" , inf o . name) ; 
return  *t; 

} 

} 


i_deltree  (t ) 
struct  i_node  *t; 

DESCRIPTION:  Deletes  the  tree  pointed  to  by  t. 

PARAMETERS;  Struct  i_node  *t 

RETURNS:  None 

CALLS;  i_deltree,  i_cdelrest 

CALLED  BY:  (KS.PC)  del_trees 

( 

if  (t->lchild  !=  NULL)  { 
i_delt ree (t->lchild) ; 
t->lchild  =  NULL; 

) 

if  (t->rchild  !=  NULL)  { 
i_deltree (t->rchild) ; 
t->rchild  =  NULL; 

) 

i_cdelrest (4t->info,  t->info.col_head) ; 
free  (t ) ; 

) 

struct  i_node  *i_find(t,  name) 
struct  i_node  *t; 
char  *name; 

DESCRIPTION:  Searches  the  tree  pointed  to  by  t  for  the 

node  containing  name. 

PARAMETERS:  struct  i_node  *t,  char  *name 

RETURNS:  Pointer  to  the  node  containing  name,  or 

NULL  if  not  found 

CALLS:  i_find 

CALLED  BY:  i_find 

**»«»»*»****»**»**»************»**»**************»**********»*****************y 
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if  (t  ==  NULL)  return  NULL; 
cmp  =  strcmp (name, t->info. name) ; 
if  (cmp  <  0)  return  i_f ind {t->lchild,  name) ; 
else 

if  (cmp  >  0)  return  i_f ind (t->rchild,  name) ; 
else  return  t; 


struct  i_node  *i_left{t) 
struct  i_node  **t; 

/**********-^-^-kffttie***-k*-k*-k*-^ir*irir***ic**ir-kitit*ir-^irir**-k*-ifkit**1t*1e***ic*ir*****-k*****ir**t, 

DESCRIPTION:  Changes  t  to  point  to  its  own  left  child. 

If  t  is  NULL  upon  calling  the  function, 
nothing  is  changed. 

PARAMETERS:  struct  i_node  **t 

RETURNS:  Returns  a  pointer  to  t's  left  child.  If  t 

is  NULL,  NULL  is  returned. 

CALLS :  None 

CALLED  BY :  None 

{ 

if  (*t  !=  NULL)  *t  =  C't) ->lchild; 
return  *t; 


struct  i__node  *-i_right(t) 
struct  i_node  **t; 

DESCRIPTION:  Changes  t  to  point  to  its  own  right  child. 

If  t  is  NULL  upon  calling  the  function, 
nothing  is  changed. 

PARAMETERS:  struct  i_node  **t 

RETURNS:  Returns  a  pointer  to  t’s  right  child.  If  t 

is  NULL,  NULL  is  returned. 

Calls :  None 

CALLED  BY:  None 


■k  T  *  k  k  k  *  * 


kkkkkkkk 


*kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

{ 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


*  *  ★  ♦  / 


if  (»t  !=  NULL)  *t  =  (*t) ->rchild; 
return  *t; 


i_lnr  (t) 

struct  i_node  *t; 

DESCRIPTION:  Performs  an  Inorder  traversal  (LNR)  of  the 

tree  pointed  to  by  t  while  displaying  the 
contents  of  each  node  as  it  is  visited. 

PARAMETERS:  struct  i  node  *t 

RETURNS :  None 

CALLS:  i_lnr,  i  shownode 

CALLED  BY:  i_lnr 

*****************-k*1i***-),******i,1,iH,t,i,-t**t****»**-k*i,*******-H,*i,i,1,-fH,1,i,*1,i,i,i,t*i,t*/ 

{ 

if  (t->lchild  !=  NULL)  i_lnr (t->lchild) ; 
i_shownode (t->info)  ; 
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if  (t->rchild  !=  NULL)  i_lnr (t->rchild) ; 

) 

index  List 
Functions 

—  —  —  —  —  —  —  —  — 

i_cinit  (i) 
struct  index  *i; 

/*****-ir**irifk-tr****it***irir*******ir******it1fitit*it1r*iritit*ir*it**icir-kir***iririt***1r***ititir***ir* 

DESCRIPTION:  Initializes  the  column  list  pointers: 

col_cur,  col_head,  and  col_tail. 

PARAMETERS:  struct  index  *i 

RETURNS;  None 

CALLS :  None 

CALLED  BY:  i_ins 

{ 

i->col_cur  =  i->col  head  =  i->col  tail  =  NULL; 

) 

i_cins (i,  info) 
struct  index  *i; 
struct  i_col_info  info; 

/***ftt*-k**fl,-^f^tf****-l,'i,*-k-»***1,-l,t********1r*******-lr*****i,**-t*1,**i,i,1,*-k*ir**-H,-k*l!** 

DESCRIPTION;  Creates  a  new  node  at  the  end  of  the  column 

list  and  stores  the  contents  of  info  in  the 
node.  If  there  is  insufficient  memory  to 
create  the  node,  a  message  is  printed. 

PARAMETERS;  struct  index  *i,  struct  i  col  info  info 

RETURNS ;  None  “ 

CALLS ;  None 

CALLED  BY;  (KS.PC)  get_index_inf o 

*********»***»*»**»****»*»************,***,*****»********,,****,****.,*******, *,^ 

{ 

if  (i->col_tail  !=  NULL)  ( 

i->col_tail->next  =  (struct  i_cnode  *)  malloc (sizeof (struct  i_cnode) ) ; 
if  ( i->col_tail->next  ==  NULL)  ( 

printf (" (index/column  list  insert):  Out  of  memoryXn"); 
return  NULL; 

) 

i->col_tail->next->prev  =  i->col  tail; 
i->col_tail  =  i->col_tail->next 
i->col_tail->info  =  info; 
i->col_tail->next  =  NULL; 

) 

else  ( 

i->col_tail  =  (struct  i_cnode  *)  malloc (sizeof (struct  i_cnode) ) ; 
if  (i->col_tail  ==  NULL)  { 

printf  (" (index/column  list  insert):  Out  of  memoryXn"); 
return  NULL; 

} 

i->col_head  =  i->col_tail; 
i->col_tail->next  =  NULL; 
i->col_head->prev  =  NULL; 
i->col  tail->info  =  info; 


123 


J^pendlx  D  C  Code 


Oct  11  17:46  1992  i_tree.c  Page  6 


) 

) 

i_cdel(i,  node) 
struct  index  *i; 
struct  i_cnode  *node; 

/*******★************************»*******************************★********■***■** 
DESCRIPTION:  Deletes  node  from  the  column  list. 

PARAMETERS:  struct  index  *i,  struct  i_cnode  *node 

RETURNS :  None 

CALLS :  None 

CALLED  BY :  i_cdelrest 

{ 

if  (node  ==  NULL)  return; 

if  ( (node  ==  i->col_head)  1  I  (node  ==  i->col_tail) )  { 

if  (node  ==  i->col_head)  { 
i->col_head  =  node->next; 

if  (i->col_head  !=  NULL)  i->col  head->prev  =  NULL; 

} 

if  (node  ==  i->col_tail)  { 
i->col_tail  =  node->prev; 

if  (i->col_tail  !=  NULL)  i->col  tail->next  =  NULL; 

} 

1 

else  { 

node->prev->next  =  node->next; 
node->next->prev  =  node->prev; 

i 

free (node) ; 


i_cdelrest  (i,  node) 
struct  index  *i; 
struct  i_cnode  *node; 

/*****************»**,»***»*******,*******»***************»****, *,^****»****^** 
DESCRIPTION:  Deletes  all  nodes  from  node  to  col_tail 

(current  node  to  end  of  list)  from  the 
column  list. 

PARAMETERS:  struct  index  *i,  struct  i_cnode  »node 

RETURNS :  None 

CALLS:  i  cdel 

CALLED  BY:  i_deltree 

t 

struct  i_cnode  *tmp; 

while  (node  !=  NULL)  ( 
tmp  =  node->next; 
i_cdel (i,  node) ; 
node  =  tmp; 

} 

) 

struct  i_cnode  *i_cfind(i,  name) 
struct  index  *i; 
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char  name [33 ] ; 

DESCRIPTION: 

PARAMETERS: 
RETURNS : 

CALLS : 

CALLED  BY: 

{ 

struct  i_cnode 

} 

struct  i_cnode  *i 
struct  index  *i; 

DESCRIPTION: 

PARAMETERS : 
RETURNS ; 

CALLS : 

CALLED  BY: 

{ 

if  (i->col_cur 

} 

struct  i_cnode  *i 
struct  index  *i; 

DESCRIPTION: 

PARAMETERS : 
RETURNS : 

CALLS: 

CALLED  BY: 

( 

if  (i->col_cur 

) 


i_tree.c  Page  7 


■iriririe-kiriririritieif*-k**it*-k*i(itifif*********!********if******************* 

Searches  the  column  list  for  the  node 

containing  name. 

struct  index  *i,  char  *name 

Pointer  to  a  node  containing  name 

None 

None 

*****************************»»*****************************/ 
*  imp  ; 


cnext ( i ) 

★  ★**★★★★*•***★********»***★***********<:★★★*»*★*★■**★*★*******★* 

Advances  the  col_cur  pointer  in  i  to  the 

next  node  in  the  column  list. 

struct  index  *i 

Pointer  to  the  next  node 

None 

(KS.PC)  show_index_info 

★  ★★»★***★★**★★♦★♦★***★**•»**♦*'*•****★★★**★★»★»»■*■*»♦»**★*<■»*♦**/ 

'.  =  NULL)  i->col  cur  =  i->col  cur->next; 


cprev ( i ) 

'**★★»♦★★★*★♦*★*»★*•*★★**♦★****★★**★*»*'★★'»★*★*★★★»*★*♦*■*♦*★*★★* 

Moves  the  col_cur  pointer  in  i  to  the 

previous  node  in  the  column  list. 

struct  index  *i 

Pointer  to  the  previous  node 

None 

None 

!=  NULL)  i->col  cur  =  i->col_cur->prev; 
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# define  NO_DATA  -1 
#define  NOT_FOUND  0 
#define  TBL  1 
#define  TBL_COL_TBL  2 
#define  MULTITBL  3 
tdefine  MULTIJC  4 


tdefine  OK  Q 
#define  JCLIST  1 
#define  NOTREL  2 
#define  OKNOROWS  3 
#define  TABLELIST  4 


/*  Priorities  */ 


#def ine 

LEVEL 6 

6 

♦define 

LEVELS 

5 

♦define 

LEVEL4 

4 

♦define 

LEVELS 

3 

♦define 

LEVEL2 

2 

♦define 

LEVELl 

1 

♦define 

LEVELO 

0 

♦define 

NOPRI 

-1 

♦define 

max  (a. 

b) 

(  (a  > 

b) 

♦define 

min (a, 

b) 

( (a  < 

b) 

♦define 

NAMELENGTH 

31 

Page  1 


)  :  (b) ) 

)  :  (b)  ) 
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/****»»*»*****»******♦*************»*»»»******»****♦*******♦*»***********''** 

PROGRAM  IUI.C 

lAMS  intelligent  user  interface  code  utilizes  Motif  functions  to  accept 
user  input  from  the  screen,  and  display  system  output  to  the  screen. 
Project  specifications  developed  by: 

Peggy  Wright  in  support  of  lAMS  research 
Code  written  by: 

Shannon  Thornton  01  SEP  92 

♦  ★★★♦★★★♦^r**tN’******j^**'<r*********<r************<r******^**'***************'**'**** 

tinclude  <stdio.h> 

#include  <string.h> 

#include  <Xm/Xm.h> 

♦include  <Xm/PushB.h> 

♦include  <Xm/Label.h> 

♦include  <Xm/Separator . h> 

♦include  <Xm/Form.h> 

♦include  <Xm/Text.h> 

♦include  <Xm/MessageB . h> 

♦include  <Xm/List.h> 

»inciude  "mks.h" 

extern  struct  m_node  *m_tree; 

FILE  *iams_log; 

/*  Misc.  */ 

/»**••*♦»* / 

XtAppContext  context; 

XmSt  r ingCharSet  char_set=XmSTRING_DEFAULT_CHARSET; 

♦define  NUMOPS  7 

/*  SQL  Constants  */ 

♦define  NOT_RESERVED  -1 
♦define  NOTEQl  0 
♦define  LTE  1 
♦define  NOTEQ2  2 
♦define  EQ  3 

♦define  GTE  4 
♦define  AND  5 
♦define  BY  6 

♦define  FROM  7 
♦define  GROUP  8 
♦define  HAVING  9 
♦define  IN  10 

♦define  LIKE  11 
♦define  NOT  12 
♦define  OR  13 

♦define  ORDER  14 
♦define  SELECT  15 
♦define  WHERE  16 
♦define  NUM_RESERVED  18 

char  *ops [ 1 = { , "<" , "<=" , ">” , "LIKE" } ; 


127 


Appendix  O  C  Code 


Oct  11  17:44  1992  iui.c  Page  2 


char  reserved_word ( ]  [NUM_RESERVED]  = 

I  "  1  =•',  ••<  =  ",  ■•<>",  "  =  •■>  =  ",  "AND",  "BY",  "FROM”,  "GROUP",  "HAVING",  "IN”,  "LIKE", 

"NOT", "OR", "ORDER", "SELECT", "WHERE" , NULL } ; 

♦define  TABLENAME  1 

♦define  JCNAKE  2 

♦define  APPNAME  3 

int  fid,  1 i St type; 

char  tlnamestr [ 30 ] ,  t2namestr [30] ,  jcnamestr [ 30 ] ,  tlopstr[5],  t2opstr[5j, 
tlrangestr [30] ,  t2rangestr [30 ] ,  app(30],  appl(30],  app2[30]; 

/*****»*»»**/ 

/*  Widgets  */ 

y*»»*»*»*»*»/ 

Widget  toplevel,  form,  quit,  execute,  sclabel,  name,  operator,  range, 
targetl,  target2,  tlname,  tlop,  tlrange,  t2name,  t2op,  t2range, 
sep,  sep2,  errdlg,  msgdlg,  wrkdlg,  qry,  res,  jclst,  uiddlg, 
qrylabel,  reslabel,  jclabel; 


void  Init  ( ) 

iams_log  =  fopen  ("iams_log.txt",  "wt"); 
mksstart  ( )  ; 

} 

void  Quit  ( ) 

mksquit  ( ) ; 
f close ( iams_log) ; 


/★★♦*★♦*♦♦****,►**♦*★*.*  ! 

/*  Utility  functions  */ 

/★***»#*^#**»*-*****#*^  ^ 

void  set_params (app_name,  11,  12,  13,  14,  15,  16) 
char  *app_name,  *11,  *12,  *13,  *14,  *15,  *16; 

{ 

FILE  *f; 

char  f name [ 50 ] ; 

sprint f (fname, "iams_%s_results . txt ", app_name) ; 
strlwr (fname) ; 

if  ((f  =  fopen (fname,  "wt"))  ==  NULL)  ( 

fprintf (iams_log,  "lUI:  Unable  to  create  %s\n" , fname) ; 
Quit  0  ; 
exit  (-1 )  ; 

) 

fprintf  (f , "%s\n%s\n%s\n%s\n%s\n%s\n", 11, 12, 13, 14,  15,  16)  ; 
f close ( f ) ; 


void  msgCB (w,  client_data,  call_data) 

Widget  w; 

int  client  data; 
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XitiSelectionBoxCallbackSt  ruct  *call_data; 

( 

XtUnmanageChila (w) ; 

) 

void  errwin (msg) 
char  *msg; 

( 

Arg  al [ 10 ] ; 
int  ac; 

ac=0  ; 

XtSetArg (al [ac] ,  XmNmessageString,  XmStringCreateLtoR (msg, char_set) ) 
ac  +  +; 

XtSetValues (errdlg,  al,  ac)  ; 

XtManageChild (er rdlg)  ; 


void  msgwin(msg) 
char  *msg; 

( 

Arg  al [10]  ; 
int  ac; 

Widget  win; 

ac=0  ; 

XtSetArg (al [ac] ,  XmNmessageString,  XmStringCreateLtoR  (msg, char_set) ) 
ac  +  +  ; 

XtSetValues (msgdlg, al, ac) ; 

XtManageChild (msgdlg) ; 


void  wrlcwin  (msg) 
char  *msg; 

i 

Arg  al [ 10 ] ; 
int  ac; 

Widget  win; 


ac=0  ; 

XtSetArg (al [ac ] ,  XmNmessageString,  XmStringCreateLtoR (msg, char_set ) ) 
ac  +  +  ; 

XtSetValues  (wr)cdlg,  al,  ac)  ; 

XtManageChild  (wr)?dlg)  ; 


void  removewricwin  ( ) 

{ 

XtUnmanageChild (wrkdlg)  ; 

) 

int  is_reserved (w) 
char  *w; 

{ 

int  i  =  0,  cmp  =  1; 
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while  ( (reserved_word [ i ]  !=  NULL)  && 

((cmp  =  strcmp  (reserved_word[i] ,w) )  <  0)) 

i  +  +  ; 

if  {(cmp  ==  0)  &&  (reserved_word[i]  !=  NULL))  return  i 
else  return  -1; 


char  *format_sql (s) 
char  *s; 

{ 

char  t[4096],  *word,  delta [10]; 
int  res; 

t [0]  =  delta  [0]  =  '  \0'  ; 

word  =  (char  *)  strto)c(s,  "  "); 

while  (word  1=  NULL)  ( 

if  ((res  =  is_reserved (word)  )  ==  NOT_RESERVED) 
sprintf (t,  "%s  %s",  t,  word) ; 

else 

switch  (res)  { 
case  NOTEQl: 
case  LTE : 
case  NOTEQ2  : 
case  EQ: 
case  GTE: 
case  LIKE: 

sprintf (t , "%s  %s",  t,  word) ; 
brea)^  ; 
case  BY: 

sprintf (t, "%s  is",  t,  word) ; 
break ; 
case  IN: 

spr int f (t , "%s  %s\n",  t,  word) ; 
st rcat (delta,  "\t"); 
break; 
case  GROUP : 
case  ORDER: 

sprintf (t,  "%s\n%s%s",  t,  delta,  word); 
break; 
case  AND: 
case  FROM: 
case  HAVING: 
case  OR: 
case  WHERE: 

sprintf (t, "%s\n%s%-*s",  t,  delta,  8,  word) 
break; 

case  SELECT: 

sprintf  (t, "%s%s%-*s”,  t,  delta,  8,  word) ; 
break ; 

) 

word  =  (char  *)  strtok(NULL,  "  "); 

} 

strcpy  (s,  t) ; 
return  s; 
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Boolean  get_query() 

( 

FILE  *f; 

char  query [ 2048]; 
int  tp; 

printf ("Entering  get_query\n")  ; 

if  (  (f  =  fopen  ("ianis_qry.txt",  "rt"))  ==  NULL)  ( 
errwin ( "Unable  to  open  iams_qry.txt!"); 
return  False; 

) 

f gets (query,  2048,  f); 

query [ strlen (query ) -1 ]  =  '\0'; 

printf ("Read:  %s \n" , query ) ; 

format_sql (query)  ; 

printf ( "Formatted: \n%s\n"  ,  query) ; 

query [ strlen (query ) +1  ]  =  '\0'; 

query [strlen (query) ]  =  ' \n' ; 

tp  =  XmTextGetLastPosition (qry) ; 

XmTextInsert (qry,  (XmTextPosition)  tp,  query); 
tp  +=  strlen (query ) ; 
strcpy (query, "\n\n")  ; 

XmTextInsert (qry,  (XmTextPosition)  tp,  query) ; 
tp  +=  2; 
fclose (f )  ; 

unlink ( " iams_qry . txt " )  ; 
return  True; 


Boolean  get_results (app) 
char  *app; 

( 

char  fname[80],  line[128],  rescode[5]; 

FILE  *f; 

int  tp,  irescode; 

XmString  s; 

Boolean  retval  =  False; 

sprintf (fname,  "iams_%s_results ,txt",  app) ; 
strlwr (fname) ; 

if  ( (f  =  fopen (fname,  "rt"))  -=  NULL)  { 

sprintf (line, "Unable  to  open  %s!", fname); 
errwin (line) ; 
return  False; 

} 

fgets (rescode,  5,  f)  ; 
irescode  =  rescode [0]  -  48; 
switch  (irescode)  { 
case  OK: 

fgets (line,  128,  f ) ; 

tp  =  XmTextGetLastPosition (res) ; 

while  (feof(f)  ==  0)  { 

printf ("RESULTS:  %s",  line) ; 

XmText Insert ( res,  (XmTextPosition)  tp,  line) 
tp  +=  strlen  (line) ; 
fgets (line,  128,  f ) ; 
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} 

strcpy  (line,  "\n\n'')  ; 

XmText Insert ( res ,  (XmTextPosition)  tp,  line) ; 
tp  +=  2; 
retval  =  True; 
break; 

case  NOTREL: 

msgwinC'A  relationship  could  not  be  found  between  T1  and  T2.") 

retval  =  False; 

break; 

case  OKNOROWS: 

msgwinC'No  data  was  found  matching  the  specifications."); 
unlink ("iams_qry.txt") ; 
retval  =  False; 
break; 

) 

fclose  (f ) ; 
unlink (fname) ; 
return  retval; 

} 

! 

/*  MKS  Searches  */ 

/*****»»»**»»****  j 

Boolean  single_app (tl ,  t2) 
struct  m_node  *tl,  *t2; 

{ 

if  (tl  ==  NULL)  { 

if  (t2->inf o . app_head  !=  NULL)  { 

strcpy (app, t2->info. app_head->info . name) ; 
return  True; 

) 

) 

else  if  (t2  ==  NULL)  { 

if  (tl->info.app_head  1=  NULL)  { 

strcpy  (app, tl->info . app_head->info . name) ; 
return  True; 

) 

) 

else  (  /*  Both  are  NOT  NULL  */ 
t l->info . app_cur  =  t l->inf o . app_head; 
while  (t l->info . app_cur  !=  NULL)  ( 

t2->info . app_cur  =  t2->info . app_head; 
while  (t2->inf o . app_cur  !=  NULL)  { 

if  (strcmp (tl->info.app_cur->info.name, 
t2->info.app_cur->info.name)  ==  0)  { 

strcpy (app, tl->info.app_cur->info.name)  ; 
return  True; 

) 

m_anext (St2->info)  ; 

} 

m_anext (&tl->info) ; 

} 

)  /*  End  Both  are  NOT  NULL  */ 
return  False; 
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void  multi_app (tl,  t2,  m,  count,  appl,  app2) 

struct  m_node  *tl,  *t2, 

int  *count; 

char  *appl,  *app2; 

I 

XmString  s; 

struct  m_anode  *tmp; 

if  (m  ==  NULL)  return; 


/*  Search  for  a  relation  (join)  column  across  databases/applications/KS  */ 
if  ({ strcmp (m->info , name, tl->info . name)  !=  0)  && 

(strcmp (m->info . name, t2->info. name)  !=  0))  { 

m->info . app_cur  =  m->info . app_head; 
while  (m->info . app_cur  !=  NULL)  { 

tl->info.app_cur  =  tl->info.app_head; 
while  (tl->info.app_cur  !=  NULL)  { 

if  (strcmp (m->info.app_cur->info.name, 
tl->info.app_cur->info.name)  ==  0)  ( 

tmp  =  m->info . app_cur ; 
m->inf o . app_cur  =  m->info.app_head; 
while  (m->info . app_cur  !=  NULL)  { 

t2->inf o . app_cur  =  t2->info . app_head; 
while  (t2->info.app_cur  !=  NULL)  ( 

if  (strcmp {m->info.app_cur->info.name, 
t2->lnfo.app_cur->info.name)  ==  0)  { 

( *count ) ++; 

strcpy (appl, tmp->info. name) ; 
strcpy (app2,m->info.app_cur->info.name) ; 
strcpy ( jcnamestr, m->inf o . name) ; 
printf  ("\t\tPotential  JC(%d):  %s\n", 

‘count, jcnamestr) ; 

s=XmStringCreate ( jcnamestr,  char_set) ; 
XmListAddItem ( jrlst, s, 0) ; 

XmStringFree (s) ; 

) 

m_anext (&t2->info) ; 

) 

m_anext (&m->info) ; 

) 


) 

m_anext (&tl->info)  ; 

) 

m_anext (&m->info) ; 

) 

) 

multi_app (tl,  t2,  m->lchild,  count,  appl,  app2); 
multi_app (tl ,  t2,  m->rchild,  count,  appl,  app2) ; 

} 


/*  Callbac)cs  */ 

void  selectCB(w, 
Widget  w; 


client  data,  call_data) 
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int  client_data ; 

XmListCallbackStruct  ♦call_data; 

{ 

char  *item; 

XmStringGetLtoR (call_data->item, char_set, &item) ; 

XtUr  anageChild ( jclst )  ; 

XtUnmanageChild ( jclabei) ; 

XmListDeleteAllItems (jclst )  ; 

printf ( " \tForking  ks  for  %s.  .  .\n",appl); 

set_params (appl , t Inamest r , t lopst r , t Irangestr , item,  " " , " " ) 

if  ((fid  =  forkO)  ==  0)  { 

execlC'ks",  "ks",  appl,  (char  *)  0); 

errwin ( "Unable  to  execute  knowledge  jource."); 

) 

else  wait ( (int  *)  0); 

print f \tReading  query  and  results  . \n" ) ; 
if  (get_results (appl) ) 
get_query ( ) ; 

else  printf ("Error  reading  results  for  %s\n",appl); 
printf ("\tForking  ks  for  %s.  .  .\n",app2); 
set_params (app2, item, "", t2namestr, t2opstr, t2rangestr) 
if  ((fid  =  forkO)  ==  0)  ( 

execlC'ks",  "ks",  app2,  (char  *)  0)  ; 

errwin ( "Unable  to  execute  knowledge  source."); 

} 

else  wait ( (int  *)  0); 

printf  ("\tReadir.g  query  and  results . \n" >  ; 
if  (get_results (app2 ) ) 
get_query ( ) ; 

else  printf ("Error  reading  results  for  %s\n" , app2 )  ; 
XtFree  (item) ; 


void  quitCB(w,  client_data,  call_data) 

Widget  w; 

int  client_data; 

XmPushButtonCallbackSt ruct  *call_data; 

1 

Quit  0  ; 
exit  (0)  ; 

} 

void  executeCB(w,  client_data,  call_data) 

Widget  w; 

int  client_data; 

XmPushButtonCallbackSt  ruct  *cal l_data ; 

( 

int  i,  ac,  numjcs; 

Arg  al [ 5 ]  ; 

struct  m_node  *tl  =  NULL,  *t2  =  NULL; 
Boolean  found; 

strcpy (tlnamestr,  XmTextGetString (tlname) ) ; 
strcpy  (t2namestr,  XmTextGetString (t2name) ) , 
St rcpy (t lopst r,  XmTextGetString (flop)  )  ; 
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strcpy (t2opstr ,  XmTextGetString (t2op) ) ; 
strcpy (tlrangestr,  XmTextGetString (tlrange) ) ; 
strcpy  (t2rangestr,  XmTextGetString (t2range) ) ; 
trim  (tlnamestr) ; 
trim (t2namestr) ; 
trim (tlopstr)  ; 
trim (t2opstr )  ; 
trim (tlrangestr)  ; 
trim (t2rangestr)  ; 
strupr (tlnamestr)  ; 
strupr (t2namestr)  ; 


printf ("Target  1: 
printf ( "Target  2: 


%30s  %5s  %30s\n”, tlnamestr, tlopstr, tlrangestr) ; 
%30s  %5s  %30s\n" , t2namestr , t2opstr , t2rangestr ) ; 


/*  Cl:iec)c  names  to  be  sure  both  are  not  empty  */ 

if  (tlnamestr [0 ]  ==  NULL  &&  t2namestr[0]  ==  NULL)  ( 

msgwinC'Both  Target  1  and  Target  2  cannot  be  empty!"); 
return; 

} 


/*  Ma)ce  sure  Target  1  and/or  Target  2  exist  */ 
if  (tlnamestr [ 0 ]  !=  NULL) 

if  ( (tl  =  (struct  m_node  *)  m_f ind (m_tree,  tlnamestr))  ==  NULL)  { 
errwin ( "Target  1  is  not  a  valid  column  name."); 
return; 

) 

if  (t2namestr [0]  !=  NULL) 

if  ( (t2  =  (struct  m_node  *)  m_f ind (m_tree,  t2namestr) )  ==  NULL)  ( 
errwin ( "Target  2  is  not  a  valid  column  name."); 
return; 


/*  Chec)^  for  invalid  operators  */ 
if  (tlopstr[0]  !=  NULL)  i 
strupr (tlopstr)  ; 
for  (i=0;  i<NUMOPS;  i++) 

if  ( St rcmp  (tlopstr ,  ops  [  i  ))  ==0)  brea)c; 
if  (i  >=  NUMOPS)  { 

errwin ("The  operator  for  Target  1  is  invalid”); 
return; 

) 

) 

if  (t2opstr(0]  !=  NULL)  { 
strupr (t2opstr)  ; 
for  (i=0;  i<NUMOPS;  i++) 

if  (strcmp (t2opstr, ops [ i] ) ==0)  break; 
if  (i  >=  NUMOPS)  { 

errwin ("The  operator  for  Target  2  is  invalid”); 
return; 

) 

) 

/*  Chec)c  for  invalid  ranges  */ 

/*  The  only  invalid  range  is  a  numeric  column  with  a  character  range  */ 
if  (tl  !=  NULL) 
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if  (tl->info .type [ 0)  ==  'N')  ( 

for  (i=0;  iotrlen  (tlrangestr)  ;  i++) 
if  {isalpha (tlrangestr [i] ) ) 
break; 

if  {i<strlen (tlrangestr) )  { 

errwin ( 

"Target  1  is  a  numeric  column,  but  its  range  contains  -L  -acter  data." 
)  ; 

return; 


if  (t2  !=  NULL) 

if  (t2->inf o . type [ 0 ]  ==  'N')  { 

for  (i=0;  i<strlen (t2rangestr ) ;  i++) 
if  ( isalpha (t2rangestr  [ i ]) ) 
break; 

if  (i<strlen (t2rangestr) )  { 
errwin ( 

"Target  2  is  a  numeric  column,  but  its  range  contains  character  data." 
)  ; 

return; 

} 

} 

/*  Check  for  incomplete  search  constraints  */ 

/*  Operator  is  NON-NULL  and  range  is  NULL  or  vice-versa  */ 
if  ((tlopstr[0]  !=  NULL)  &&  (tlrangestr [0]  ==  NULL))  ( 

errwin ("The  range  for  Target  1  is  blank,  but  the  operator  is  not.") 
return; 

} 

if  ((tlopstr[0]  ==  NULL)  (t 1 rangestr [0 ]  !=  NULL))  ( 

errwin ("The  operator  for  Target  1  is  blank,  but  the  range  is  not.") 
return; 

) 

if  ((t2opstr[0]  1=  NULL)  &&  (t2rangestr [0 ]  ==  NULL))  { 

errwin ("The  range  for  Target  2  is  blank,  but  the  operator  is  not.") 
return; 

) 

if  v(t2opstr[0]  ==  NULL)  &&  (t2rangestr [0 )  !=  NULL))  { 

errwin  ("The  operator  for  Target  2  is  blank,  but  the  range  is  not.") 
return; 


/*  Try  to  find  a  common  application  for  T1  &  T2  */ 
if  (single_app (tl,  t2))  { 

printf  ("\tForking  ks  .  .  .\n"); 
printf("\tks  %s\n",app); 

set_params  (app, t Inamestr , tlopstr, tlrangestr , t2namestr , 
t2opstr, t2rangestr) ; 
if  ((fid  =  forkO)  ==  0)  { 

execlC'ks",  "ks",  app,  (char  *)  0)  ; 

errwin ( "Unable  to  execute  knowledge  source."); 

} 

else  wait((int  *)  0); 

printf ("\tReading  query  and  results . \n") ; 
if  (get_results (app) ) 
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get_query ( ) ; 
return; 

} 

else  { 

printf ( "Trying  multi_app  .  .  .\n"); 
numjcs  =  0; 

multi_app (tl,  t2,  m_tree,  Snumjcs,  appl,  app2); 
printf ("Multi_app  found  %d  join  columns \n", numjcs) ; 
if  (numjcs  >  1)  { 

XtManageChild( jclabel)  ; 

XtManageChild ( jclst )  ; 

1 

else 

if  (numjcs  <  1)  { 

msgwin ( "Target  1  and  Target  2  are  not  related."); 
return; 

} 

else  { 

set_params (appl , t Inamestr, tlopstr, tlrangestr , jcnamest r , " " , " " ) 
if  ( (fid  =  fork  0 )  ==  0)  { 

execlC'ks",  "ks",  appl,  (char  *)  0); 

errwin ( "Unable  to  execute  knowledge  source."); 

return; 

) 

else  wait((int  *)  0); 
if  (get_results (appl ) ) 
get_query ( ) ; 

set_params (app2, jcnamestr, t2namestr, t2opstr, t2rangestr) 
if  ( (fid  =  fork () )  ==  0)  { 

execlC'ks",  "ks",  app2,  (char  *)  0)  ; 

errwin ( "Unable  to  execute  knowledge  source."); 

return; 

) 

else  wait ( (int  *)  0); 
if  (get_results (app2) ) 
get__query  ( )  ; 

) 


main(argc,  argv) 
int  argc; 
char  *argv [ ] ; 

{ 

Arg  al [ 10 ] ; 
int  ac,  i; 

XmString  s; 

Widget  list; 

/*  Initialize  MKS  and  log  file  */ 

Init  0  ; 

/*  create  the  toplevel  shell  */ 

toplevel  =  XtAppInitialize (Scontext,  NULL,  0,  &argc,  argv, 

NULL,  NULL,  0) ; 
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/*  create  message  window  */ 

msgdlg=XmCreate Informat ionDialog (toplevel, "msgdlg" , NULL, 0 ) ; 
XtAddCallback (msgdlg, XmNokCallback, msgCB, NULL) ; 
XtUnmanageChild (XmMessageBoxGetChild (msgdlg, 
XmDIALOG_CANCEL_BUTTON) ) ; 

XtUnmanageChild (XmMessageBoxGetChild (msgdlg, 
XmDIALOG_HELP_BUTTON) ) ; 

/*  create  error  window  */ 

errdlg=XmCreateErrorDialog  (toplevel, "errdlg", NULL, 0) ; 
XtAddCallback (errdlg, XmNokCallback, msgCB, NULL) ; 
XtUnmanagecni Id (XmMessageBoxGetChild (errdlg, 
XmDIALOG_CANCEL_BUTTON) ) ; 

XtUnmanageChild (XmMessageBoxGetChild (errdlg, 
XmDIALOG_HELP_BUTTON) ) ; 

/*  create  working  window  */ 

wrkdlg=XmCreateInformationDialog (toplevel, "wrkdlg” , NULL,  0) ; 
XtAddCallback (wrkdlg, XmNokCal Iback, msgCB, NULL) ; 
XtUnmanageChild (XmMessageBoxGetChild (wrkdlg, 
XmDIALOG_CANCEL_BUTTON) ) ; 

XtUnmanageChild (XmMessageBoxGetChild (wrkdlg, 
XmDIALOG_HELP_BUTTON) ) ; 

/*  create  a  form  to  hold  the  widgets  */ 
ac=0  ; 

XtSetArg (al [ac] , XmNheight, 800) ;  ac++; 

XtSetArg (al [ac] , XmNwidth, 800) ;  ac++; 
f orm=XmCreateForm (toplevel, "form" ,  al,  ac)  ; 

XtManageChild ( f orm) ; 

/*  create  the  JC  list  */ 
ac=0; 

XtSetArg (al [ac] , XmNtopItemPosition, C, ;  ac++; 

XtSetArg (al [ac] , XmNvisibieltemCount, 10) ;  ac++; 

/ * jclst=XmCreateScrolledList (form,  " jclst " , al, ac) ; * / 
jclst=XmCreateList (form,  "jclst", al, ac) ; 

XtAddCallback ( jclst , XmNdefau It Act ionCal Iback, selectCB, NULL) 

/*  create  the  Query  text  */ 
ac=0; 

XtSetArg (al [ac] , XmNeditable, False) ;  ac++; 

/ *qry=XmC reate Sc rolledText (form, "qry" , al, ac) ; * / 
qry=XmCreateText (form, "qry" , al , ac) ; 

XtManageChild (qry )  ; 

/*  create  the  Results  text  */ 
ac=0  ; 

XtSetArg (al [ac] , XmNeditable, False) ;  ac++; 

/ *res=XmCreateScrolledText (form, "res", al, ac) ; */ 
res=)(mCreateText  (form,  "res"  ,  al ,  ac)  ; 

XtManageChild (res)  ; 


/*  create  a  label  for  the  Query  text  */ 
ac=0  ; 

XtSetArg (al [ac] , XmNlabelString, 
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XmStringCreate ("Query  Executed", char_set) ) ;  ac++; 
qrylabel=XmCreateLabel (form, "qrylabel", al, ac) ; 

XtManageChild (qrylabel) ; 

/*  create  a  label  for  the  Results  text  */ 
ac=0  ; 

XtSetArg (al [ac] , XmNlabelString, 

XmStringCreate ( "Results  of  the  Query" , char_set )) ;  ac++; 
reslabel=XmCreateLabel (form, "reslabel" , al, ac) ; 

XtManageChild (reslabel) ; 

/*  create  a  label  for  the  jc  list  ♦/ 
ac=0  ; 

XtSetArg (al [ac] , XmNlabelString, 

XmStringCreateLtoR ( "Double  clic)c  theXndesired  join  column" , char_set ) ) 
ac++; 

jc label =XmCreateLabel (form, " jclabell" , al, ac) ; 

/*  create  EXECUTE  button  ♦/ 
ac=0 ; 

XtSetArg (al [ac] , XmNlabelString, XmStringCreate ("Execute", char_set) ) ;  ac++ 
execute=XmCreatePushButton (form, "execute", al, ac) ; 

XtManageChild  (execute) ; 

XtAddCallback  (execute,  XmNactivateCallbacic,  executeCB,  NULL)  ; 

/*  create  QUIT  button  */ 
ac=0; 

XtSetArg (al [ac] , XmN label St  ring, XmStringCreate ("Quit " , char_set ) ) ;  ac  +  + ; 
quit=XmCreatePushButton (form, "quit " , al, ac) ; 

XtManageChild (quit ) ; 

XtAddCallbac)^  (quit,  XmNactivateCallbac)c,quitCB,  NULL)  ; 

/*  create  "Search  Constraints"  label  */ 
ac=0  ; 

XtSetArg (al [ac] , XmNlabelString, 

XmStringCreate ( "Search  Constraints",  char_set));  ac++; 
sclabel=XmCreateLabel (form, "sc label" ,  al,  ac)  ; 

XtManageChild (sclabel) ; 

/*  create  "Name"  label  */ 
ac=0  ; 

XtSetArg (al [ac] , XmNlabelString, 

XmStringCreate ("Name",  char_set));  ac++; 
name=XmCreateLabel (form, "name", al, ac)  ; 

XtManageChild (name) ; 

/*  create  "Operator"  label  */ 
ac=0; 

XtSetArg (al [ ac] , XmNlabelString, 

XmStringCreate ( "Operator" ,  char_set));  ac++; 
operator=XmCreateLabel ( form, "operator",  al,  ac)  ; 

XtManageChild (operator ) ; 

/*  create  "Range"  label  */ 
ac=0; 

XtSetArg (al [ac] , XmNlabelString, 
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XmStringCreate ("Range" ,  char_set));  ac++; 
range=XinCreateLabel  (form,  "range",  al,  ac)  ; 
XtManageChild (range)  ; 

/*  create  "Target  1"  label  */ 
ac=0 ; 

XtSetArg (al [ac] , XmNlabelString, 

XmStringCreate  ("Target  1",  char_set));  ac++; 
targetl=XmCreateLabel (form, "targetl", al, ac) ; 
XtManageChild (targetl) ; 

/*  create  "Target  2"  label  */ 
ac=0 ; 

XtSetArg (al [ac] , XmNlabelString, 

XmStringCreate ("Target  2",  char_set));  ac++; 
target2=XmCreateLabel (form, "target2" , al, ac) ; 
XtManageChild (target2) ; 

/*  create  tlname  text  field  */ 
ac=0; 

XtSetArg (al [ac] , XmNmaxLength, 30) ;  ac++; 
tlname=XmCreateText (form, "tlname", al,ac) ; 
XtManageChild (tlname) ; 

/*  create  tlop  text  field  */ 
ac=0; 

/*  This  was  a  Text  InputLine  */ 

XtSetArg (al [ac] , XmNmaxLength, 5) ;  ac++; 
tlop=XmCreateText (form, "t lop", al, ac) ; 

/* 

XtSetArg  (al  [ac  ] ,  XmNautoUnmanage,  False)  ;  ac+-<-; 
XtSetArg (al [ ac ] , XmNmustMatch, True ) ;  ac++; 

XtSetArg (al [ac] , XmNselectionLabelString, 

XmSt ringCreateLtoR  ( "Pic)c  an  operator:  ",  char_set)  ) 
t lop=XmCreateSelect ionDialog (form, "tlop" , al, ac) ; 
list=XmSelectionBoxGetChild (tlop, XmDIALOG_LIST) ; 
XmListDeleteAllItems (list)  ; 
for  (i  =  0;  i<XtNumber (ops)  ;  i+  +  )  { 

s=XmStringCreate (ops [i] , char_set) ; 

XmListAddItem (list , s,  0)  ; 

XmStringFree (s)  ; 

) 

XtUnmanageChild (XmSelectionBoxGetChild (tlop, XmDIALOG 

*/ 

XtManageChild (t lop) ; 

/*  create  tlrange  text  field  */ 
ac=0  ; 

XtSetArg (al [ac] , XmNmaxLength, 50) ;  ac++; 
tlrange=XmCreateText (form, "t Irange", al, ac) ; 
XtManageChild (tlrange) ; 

/*  create  t2name  text  field  ♦/ 
ac=0; 

XtSetArg (al [ac] , XmNmaxLength, 30) ;  ac++; 


ac  +  +  ; 


HELP  BUTTON) ) 
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t2name=XinCreateText  (form,  "t2name", al, ac)  ; 

XtManageChild {t2name) ; 

/*  create  t2op  text  field  */ 
ac=0  ; 

XtSetArg (al [ac] , XmNmaxLength, 5) ;  ac++; 
t2op=XmCreateText (form, "t2op" , al, ac) ; 

XtManageChild (t2op) ; 

/*  create  t2range  text  field  */ 
ac=0; 

XtSetArg (al [ac] , XmNmaxLength, 50) ;  ac++; 
t2range=XmCreateText  f form, "tCrange", al, ac) ; 

XtManageChild (t2 range) ; 

/*  create  a  separator  */ 
ac=0; 

sep=XmCreateSeparator (form, "sep", al, ac) ; 

XtManageChild (sep) ; 

/*  create  another  separator  */ 
ac=0 ; 

sep2=XmCreateSeparator ( form, "sep2", al, ac) ; 

XtManageChild (sep2 ) ; 

/*  attach  the  children  to  the  form  */ 
ac=0; 

XtSetArg (al [ac] , XmNtopAttachment,  XmATTACH__FORM) ;  ac++; 
XtSetArg (al [ac] , XmNrightAttachment,  XmATTACH_POSITION) ;  ac++; 
XtSetArg (al [ac] , XmNrightPosition,  50);  ac++; 

XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_FORM) ;  ac++; 
XtSetArg (al [ac ], XmNbottomAttachment ,  XinATTACH_POSITION) ;  ac++ 
XtSetArg (al [ac] , XmNbottomPosition,  5);  ac++; 

XtSetValues (execute, al, ac) ; 

ac=0; 

XtSetArg (al [ac] , XmNtopAttachment,  XinATTACH_FORM) ;  ac++; 
XtSetArg (al [ac] , XmNrightAttachment,  XmATTACH_FORM) ;  ac++; 
XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_WIDGET) ;  ac++; 
XtSetArg (al [ac ], XmNleftWidget ,  execute);  ac++; 

XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH_POSITION) ;  ac++ 
XtSetArg (al [ac] , XmNbottomPosition,  5);  ac++; 

XtSetValues (quit , al , ac) ; 

ac=0; 

XtSetArg (al [ac] , XmNtopAttachment,  XmATTACH_WIDGET) ;  ac++; 
XtSetArg (al [ac ], XmNtopWidget,  execute);  ac++; 

XtSetArg (al [ac] , XmNrightAttachment,  XmATTACH_FORM) ;  ac++; 
XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_FORM) ;  ac++; 
XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH_NONE) ;  ac++; 
XtSetValues (sep, al, ac) ; 

ac=0; 

XtSetArg (al [ac] , XmNtopAttachment ,  XmATTACH_WIDGET) ;  ac++; 
XtSetArg (al [ac] , XmNtopWidget,  sep);  ac++; 
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XtSetArg (al [ac] , XmNrightAttachment,  XmATTACH_FORM) ;  ac++; 

XtSetArg (al [ac] , XmNleftAttachment ,  XmATTACH_OPPOSITE_WIDGET) ;  ac++ 
XtSetArg (al [ ac ], XmNleftWidget ,  operator);  ac++; 

XtSetArg (al [ac ], XmNbottomAttachment,  XmATTACH_HIDGET) ;  ac++; 
XtSetArg (al [ ac ], XmNbottomWidget ,  range);  ac++; 

XtSetValues (sciabel, al, ac) ; 


ac=0  ; 

XtSetArg  (al  [ac] ,  XmNtopAttacfinient,  XmATTACH_NONE)  ;  ac++; 

XtSetArg (al [ac] , XmNrigbtAttachment,  XmATTACH_WIDGET) ;  ac++; 
XtSetArg (al [ ac ], XmNrightWidget ,  operator);  ac++; 

XtSetArg (al [ac] , XmNlef tAttacfiment ,  XmATTACH_OPPOS ITE_WIDGET) ;  ac++ 
XtSetArg (al [ ac ], XmNleftWidget ,  tlname);  ac++; 

XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH_WIDGET) ;  act+; 
XtSetArg (al [ac 1 , XmNbottomWidget ,  tlname);  ac++; 

XtSetValues (name, al, ac) ; 

ac=0; 

XtSetArg (al [ac] ,XmNtopAttachment,  XmATTACH  NONE);  ac++; 

XtSetArg (al [ac] , XmNrightAttachment,  XmATTACH_OPPOSITE_WIDGET) ;  ac+ 
XtSetArg (al [ac] , XmNrightWidget,  tlop);  ac++; 

XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_OPPOSITE_WIDGET) ;  ac+* 
XtSetArg (al [ac] , XmNleftWidget ,  tlop);  ac++; 

XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH__WIDGET) ;  ac++; 
XtSetArg  (al  [  ac  ],  XmNbottomWidget ,  tlop);  ac+-*-; 

XtSetValues (operator, al, ac) ; 

ac=0  ; 

XtSetArg  (al  [ac]  ,  Xm.NtopAttachment,  XmATTACH  NONE)  ;  ac++; 

XtSetArg (al [ac] , XmNrightAttachment,  XmATTACH_FORM) ;  ac++; 

XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_OPPOSITE_WIDGET) ;  ac++ 
XtSetArg (al [ac] , XmNleftWidget,  tlrange);  ac++; 

XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH_WIDGET) ;  ac++; 

Xt Set Arg (al [ ac ], XmNbottomWidget ,  tlrange);  ac++; 

XtSetValues ( range , al , ac ) ; 


ac=0  ; 

XtSetArg (al [ac] , XmNtopAttachment,  XmATTACH_NONE) ;  ac++; 
XtSetArg (al [ac] , XmNrightAttachment,  XmATTACH_WIDGET) ;  ac++; 
XtSetArg (a  1 [ ac ], XmNrightWidget ,  tlname);  ac  +  +; 

XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_FORM) ;  ac++; 
XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH_POSITION) ;  ac++; 
XtSetArg (al [ ac ], XmNbottomPosit ion,  20);  ac++; 

XtSetValues (target  1 , al, ac) ; 


ac=0; 

XtSetArg (al [ac] , XmNtopAttachment,  XmATTACH_NONE) ;  ac++; 
XtSetArg (al [ac] , XmNrightAttachment,  XmATTACH_WIDGET) ;  ac++; 
XtSetArg (al [ac] , XmNrightWidget,  tlop);  ac++; 

XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_NONE) ;  ac++; 
XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH_POSITION) ;  ac++; 
XtSetArg (al [ac] , XmNbottomPosition,  20);  ac++; 

XtSetValues (tlname, al, ac) ; 


ac=0; 

XtSetArg (al [ac ], XmNtopAttachment ,  XinATTACH_NONE) ;  ac++; 
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XtSetArg (al [ac ], XmNright Attachment ,  XmATTACH_WIDGET) ;  ac++; 
XtSetArg (al [ac] , XmNrightWidget,  tlrange);  ac++; 

XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_NONE) ;  ac++; 
XtSetArg (al [ac] , XmNbottomAttachment,  XinATTACH_POSITION) ;  ac++ 
XtSetArg (al [ac] , XmNbottomPosition,  20);  ac++; 

XtSetValues (tlop, al, ac)  ; 

ac=0  ; 

XtSetArg  (al  [ac] ,  XmNtopAttachment,  )(itiATTACH_NONE)  ;  ac  +  +; 
XtSetArg (al [ac] , XmNrightAttachment,  )(mATTACH_FORM) ;  ac++; 
XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_NONE) ;  ac++; 
XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH_POSITION) ;  ac++ 
XtSetArg (al [ac] , XmNbottomPosition,  20);  ac++; 

XtSetValues (tlrange, al, ac) ; 


ac=0  ; 

XtSetArg (al [ac] , XmNtopAttachment,  XmATTACH_NONE) ;  ac++; 
XtSetArg (al [ac] , XmNrightAttachment,  XmATTACH_WIDGET) ;  ac++; 
XtSetArg (al [ac] , XmNrightWidget,  t2name) ;  ac++; 

XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_FORM) ;  ac++; 
XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH_POSITION) ;  ac++ 
XtSetArg (al [ac] , XmNbottomPosition,  35);  ac++; 

XtSetValues (target2, al, ac) ; 

ac=0; 

XtSetArg (al [ac] , XmNtopAttachment,  XmATTACH_NONE) ;  ac++; 
XtSetArg (al [ac] , XmNrightAttachment,  XmATTACH_WIDGET) ;  ac++; 
XtSetArg (al [ac] , XmNrightWidget,  t2op) ;  ac++; 

XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_NONE) ;  ac++; 
XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH_POSITION) ;  ac++ 
XtSetArg (al [ac] , XmNbottomPosition,  35);  ac++; 

XtSetValues (t2name, al, ac) ; 

ac=0  ; 

XtSetArg (al [ac] , XmNtopAttachment,  XmATTACH_NONE) ;  ac++; 
XtSetArg (al [ac] , XmNrightAttachment,  XmATTACH_WIDGET' ;  ac++; 
XtSetArg (al [ac] , XmNrightV.idget,  t2range) ;  ac++; 

XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_NONE) ;  ac++; 
XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH_POSITION) ;  ac++ 
XtSetArg (al [ac] , XmNhnftnmPosition,  35);  ac++; 

XtSetValues (t2op, al, ac) ; 


ac=0  ; 

XtSetArg (al [ac] , XmNtopAttachment,  XinATTACH_NONE) ;  ac++; 
XtSetArg (al [ac] , XmNrightAttachment,  XmATTACH_FORM) ;  ac++; 
XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_NONE) ;  ac++; 
XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH_POSITION) ;  ac++ 
XtSetArg (al [ac] , XmNbottomPosition,  35);  ac++; 

XtSetValues (t2 range, al, ac) ; 

ac-0  ; 

XtSetArg (al [ac] , XmNtopAttachment,  XmATTACH_POSITION) ;  ac++; 
XtSetArg (al [ac ], XmNtopPosition,  40);  ac++; 

XtSetArg (al [ac] , XmNrightAttachment,  )OnATTACH_FORM) ;  ac++; 
XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_FORM) ;  ac++; 
XtSetArg (al [ac] ,  )(mNbottomAttachment,  XmATTACH_NONE) ;  ac++; 
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XtSetValues (sep2,  al,  ac)  ; 
ac=0  ; 

XtSetArg (al [ac] , XmNtopAttachment,  XmATTACH_WIDGET) ;  ac++; 
XtSetArg (al [ac] , XmNtopWidget,  sep2) ;  ac++; 

XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_FORM) ;  ac++; 
XtSetArg (al[ac],XmNrightAttachment,  XmATTACH_P0SIT10N) ;  ac++; 
XtSetArg (al [ac] , XmNrightPosition,  40);  ac++; 

XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH_POSITION) ;  ac++ 
XtSetArg (al [ac] , XmNbottomPosition,  45);  ac++; 

XtSetValues (qrylabel, al,  ac) ; 

ac=0  ; 

XtSetArg (al [ac] , XmNtopAttachment,  XmATTACH_WIDGET) ;  ac++; 
XtSetArg (al [ac] , XmNtopWidget,  sep2) ;  ac++; 

XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_POSrTION; ;  ac++; 
XtSetArg (al [ac] , XmNleftPosition,  60);  ac++; 

XtSetArg (al [ac] , XmNrightAttachment,  XmATTACH_FORM) ;  ac++; 
XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH_POSITION) ;  ac++ 
XtSetArg (al [ac] , XmNbottomPosition,  45);  ac++; 

XtSetValues (reslabel, al, ac) ; 

ac=0; 

XtSetArg (al [ac] , XmNtopAttachment,  XmATTACH_WlDGET) ;  ac++; 
XtSetArg (al [ac] , XmNtopWidget,  sep2) ;  ac++; 

XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_WIDGET) ;  ac++; 
XtSetArg (al [ac] , XmNleftWidget,  qrylabel);  ac++; 

XtSetArg (al [ac] , XmNrightAttachment,  XmATTACH_WIDGET) ;  ac++; 
XtSetArg (al [ac] , XmNrightWidget,  reslabel);  ac++; 

XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH_POSITION) ;  ac++ 
XtSetArg (al [ac] , XmNbottomPosition,  45);  ac++; 

XtSetValues ( jclabel, al, ac) ; 

ac=0; 

XtSetArg (al [ ac ], XmNtopAttachment ,  XmATTACH_WIDGET) ;  ac++; 
XtSetArg (al [ ac ], XmNtopWidget ,  qrylabel);  ac++; 

XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_FORM) ;  ac++; 
XtSetArg (al [ac] , XmNrightAttachment,  XmATTACH_POSITION) ;  ac++; 
XtSetArg (al [ac ], XmNrightPosition,  40);  ac++; 

XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH_FORM) ;  ac++; 
XtSetValues (qry, al, ac) ; 

ac=0; 

XtSetArg (al [ac] , XmNtopAttachment,  XmATTACH_WIDGET) ;  ac++; 
XtSetArg (al [ac] , XmNtopWidget,  reslabel);  ac++; 

XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_POSITION) ;  ac++; 
XtSetArg (al [ac] , XmNleftPosition,  60);  ac++; 

XtSetArg (al [ac] , XmNrightAttachment,  XmATTACH_FORM) ;  ac++; 
XtSetArg (al [ac] , XmNbottomAttachment,  XmATTACH_FORM) ;  ac++; 
XtSetValues (res, al, ac) ; 

ac=0; 

XtSetArg (al [ac] , XmNtopAttachment,  XmATTACH_WlDGET) ;  ac++; 
XtSetArg (al [ac] , XmNtopWidget,  jclabel);  ac++; 

XtSetArg (al [ac] , XmNleftAttachment,  XmATTACH_WIDGET) ;  ac++; 
XtSetArg (al [ac] , XmNleftWidget,  qry);  ac++; 
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XtSetArg(al[ac] ,XmNrightAttachment,  XmATTACH_WIDGET) ;  ac++ 
XtSetArg (al [ac] , XmNrightWidget,  res);  ac++; 

XtSetArg  (al  [ac]  ,  XmNbottomAttachnient,  XinATTACH_FORM)  ;  ac++; 
XtSetValues { jclst,  al,  ac)  ; 

XtRealizeWidget (toplevel)  ; 

XtAppMainLoop (context) ; 
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/*******»***************»*************»»»*»***************»*****»*******»*»**♦* 

PROGRAM  M_TREE.C 

Project  specifications  developed  by: 

Peggy  Wright  in  support  of  lAMS  research 
Code  written  by: 

Shannon  Thornton  19  AUG  92 


Contains  the  necessary  routines  to  create,  manipulate,  and  dispose  of  a 
binary  tree.  Each  node  in  the  tree  contains  a  column  name,  data  type, 
data  size,  number  of  decimal  places  (if  numeric) ,  and  a  linked  list  of 
tables.  The  list  contains  all  table  names  in  which  the  column  is  used. 
There  is  a  linked  list  stored  in  each  node  of  the  table  list.  This  list 
contains  the  names  of  all  indexes  used  in  the  current  table  that  reference 
the  current  column.  See  TYPES. H  for  the  structure  definitions. 

Naming  Convention 

Functions  used  for  manipulating  the  tree  or  list  structure  begin  with  the 
first  letter  of  the  structure  used.  For  example,  to  insert  a  column  into 
the  column  tree,  c_ins ( . . )  is  called.  The  c_  indicates  the  function  uses 
the  column  tree  structure.  All  functions  that  manipulate  the  table  list 
inside  a  node  in  the  column  tree  begin  with  c_t .  Any  function  that 
manipulates  the  index  list  inside  the  previously  mentioned  table  list 
begins  with  c_i .  All  table  tree  functions  start  with  t_,  and  all  index 
tree  functions  start  with  i_.  This  convention  is  also  used  for  global 
tree  variables,  c_tree,  t_tree,  and  i_tree,  which  reference  the  column 
tree,  table  tree,  and  index  tree,  respectively. 


#include  <string.h> 
#include  <stdio.h> 
tinclude  <malloc.h> 
#include  "mks.h" 


struct  m_node  *m_tree; 
int  cmp; 


*  Global  Tree  Variables 

/*  Pointer  to  the  column  tree  */ 
/*  Temporary  variable  used  in  find  and  insert  */ 
/*  Since  find  and  insert  are  recursive  procedures  */ 
/*  the  temporary  variable  is  declared  global.  If  */ 
/*  it  was  declared  locally,  it  would  be  */ 
/*  re-allocated  on  the  stack  for  every  function  */ 
/*  call.  */ 


*  Function  definitions  * 


m_shownode (info) 
struct  mks  info; 


*  Tree  Functions 


V  X  U 


DESCRIPTION: 

PARAMETERS: 
RETURNS : 


Prints  the  contents  of  info  to  standard 
output . 

struct  column  info 
None 
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CALLS :  None 

CALLED  BY;  r_lnr 

■k*-*:*-k-k-k***-k*****-k-kic-k-k****-ktii*c-k***-ki(1r*it**l(-k-kie*-k***********ic****-*****if-k***-^****'*^/ 

f 

printf ("%-30s  %-9s  %3d  ",  inf o . name,  info. type,  info. size); 
if  ( info . type [ 0 ]  ==  'N')  printf ("%d\n", info. decimal) ; 
else  printf ("\n") ; 

) 

m_init ( ) 

DESCRIPTION;  Initializes  the  global  tree  variable  c_tree 

to  NULL. 

PARAMETERS:  None 

RETURNS :  None 

CALLS :  None 

CALLED  BY:  (KS.PC)  init_trees 

******»***»************»*****»,**,*****♦*,*,*****,***,**,»„***,*******, *******y 

{ 

m_tree  =  NULL; 

} 

m_store(t,  info) 
struct  m_node  *t; 
struct  m)cs  info; 

DESCRIPTION:  Puts  the  contents  of  info  into  the  info 

field  of  the  c_node  pointer  t. 

PARAMETERS:  struct  c  node  *t,  struct  column  info 

RETURNS :  None 

CALLS :  None 

CALLED  BY :  c  ins 

*******  t  **** -H,  ir*  *  t  *  **  *  -k  ***** -k  *******■>:  ******** -k-k  **********  1,  ***  *1,  1,  ****  *1,**  / 

{ 

t---pci,.tnt  =  NULL; 
t->lchild  =  NULL; 
t->rchild  =  NULL; 
t->inf o  =  inf o; 

) 

struct  m_node  ♦m_ins(t,  info) 
struct  m_node  **t; 
struct  m)cs  info; 

/****************»********»*****************,*******************„*****,******** 
DESCRIPTION:  Creates  a  node  in  the  tree  pointed  to  by  t, 

and  stores  the  contents  of  info  in  that 
node.  If  a  node  already  exists  with  the 
same  )cey  field,  a  message  is  printed 
warning  the  user.  If  there  is  insufficient 
memory  to  allocate  the  new  node,  a  warning 
is  printed. 

PARAMETERS:  struct  c_node  **t,  struct  column  info 

RETURNS:  Pointer  to  the  new  node.  If  a  node  already 

exists  with  the  same  )cey  field,  a  pointer 
to  that  node  is  returned.  If  there  is 
insufficient  memory,  NULL  is  returned. 
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CALLS:  c_store,  c_tinit,  c_ins 

CALLED  BY:  (KS.PC)  get_column_inf o 

»**********:*************■*****-******-***■*********>  »***'*****#****-»*******)f:^******/ 

{ 

if  (‘t  ==  NULL)  { 

*t  =  (struct  in_node  *)  malloc (sizeof (struct  m_node) ) ; 
if  (*t  ==  NULL)  ( 

printf("(MKS  insert):  Out  of  memory\n"); 
return  NULL; 

} 

m_store(*t,  info); 
m_ainit (& ( *t ) ->info)  ; 
return  *t; 


} 


else  { 

cmp  =  strcmp 
i f  ( cmp  <  0 ) 
else 

if  (cmp  > 
else  ( 
printf 
return 


(info. name,  ( ‘t ) ->info . name) ; 
return  m_ins (& (*t) ->lchild,  info) ; 

0)  return  m_ins (& (*t) ->rchild,  info) ; 

{"»»♦  duplicate  key  (%s)  ♦**\n”, info. name) ; 

*t; 


) 


} 


m_deltree (t ) 
struct  m_node  *t; 

/•*e*:*-k*1e**-^**'***********ie******-**********’ir***-k*******ir***x***************:ir*ie'*»*it 

DESCRIPTION:  Deletes  the  entire  tree  pointed  to  by  t . 

PARAMETERS;  struct  c_node  *t 

RETURNS ;  None 

CALLS;  c_deltree,  c_tdeltree 

CALLED  BY:  (KS.PC)  del_trees 


( 

if  (t->lchild  !=  NULL)  { 
m_deltree (t->lchild)  ; 
t->lchild  =  NULL; 


if  (t->rchild  !=  NULL)  { 
m_deltree (t->rchild)  ; 
t->rchild  =  NULL; 


m_adeliest (&t->info,  t->inf o . app_head) ; 
free  (t )  ; 


struct  m_node  *m_find(t,  name) 
struct  m_node  ^t ; 
char  'name; 

/♦♦★★*•*♦*★★*★★★*#★*♦**:*.*★********<>**★***★*★**★***★*★★**★*★★****★**★★■»*★***♦***★ 


DESCRIPTION: 

PARAMETERS: 
RETURNS : 


Searches  the  tree  pointed  to  by  t  for  the 
node  containing  name, 
struct  c_node  *t,  char  *name 
Pointer  to  the  node  containing  name,  or 
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NULL  if  not  found 
CALLS ;  c_f ind 

CALLED  BY:  c_find 

******************************************************************************/ 

{ 

if  (t  ==  NULL)  return  NULL; 

cmp  =  strcmp (name, t->info . name) ; 

if  (cmp  <  0)  return  m_f ind (t->lchild,  name) ; 

else 

if  (cmp  >  0)  return  m_f ind (t->rchild,  name) ; 
else  return  t; 

) 

struct  m_node  *m_left(t) 
struct  m_node  **t; 

/****************************»**************************«*****»**************** 
DESCRIPTION:  Changes  t  to  point  to  its  own  left  child. 

If  t  is  NULL  upon  calling  the  function, 

nothing  is  changed. 

PARAMETERS:  Struct  c_node  **t 

RETURNS:  Returns  a  pointer  to  t's  left  child.  If  t 

is  NULL,  NULL  is  returned. 

CALLS:  None 

CALLED  BY:  None 

{ 

if  (*t  !=  NULL)  ‘t  =  (*t) ->lchild; 
return  *t; 

} 

struct  m_node  *m_right(t) 
struct  m_node  **t; 

DESCRIPTION:  Changes  t  to  point  to  its  own  right  child. 

If  t  is  NULL  upon  calling  the  function, 

nothing  is  changed. 

PARAMETERS:  struct  node  **t 

RETURNS:  Returns  a  pointer  to  t's  right  child.  If  t 

is  NULL,  NULL  is  returned. 

CALLS :  None 

CALLED  BY:  None 

{ 

if  (»t  !=  NULL)  *t  =  ( *t ) ->rchild; 
return  *t; 

! 

m_lnr (t ) 

struct  m_node  *t; 

/*************»**-»********»********i»*»**»***********»***********************»** 

DESCRIPTION:  Performs  an  Inorder  traversal  (LNR)  of  the 

tree  pointed  to  by  t  while  displaying  the 
contents  of  each  node  as  it  is  visited. 

PARAMETERS:  struct  c_node  *t 

RETURNS :  None 

CALLS:  c  Inr,  cshownode 
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CALLED  BY:  c_lnr 

{ 

if  (t->lchild  !=  NULL)  ni_lnr  (t->lchild)  ; 
m_shownode (t->info)  ; 

if  (t->rchild  !=  NULL)  m  Inr (t->rchild) ; 

} 

Application  List  */ 

Functions 

m_ainit (m) 
struct  m)cs  *m; 

/*********************■,*******»*****,*******,,*********,*******,,************.** 
DESCRIPTION:  Initializes  the  table  list  pointers: 

tbl_cur,  tbl_head,  and  tbl_tail. 

PARAMETERS:  Struct  column  *c 

RETURNS :  None 

CALLS:  None 

CALLED  BY:  c_ins 

{ 

m->app_cur  =  m->app  head  =  m->app  tail  =  NULL; 

} 

m_ains (m,  info) 
struct  m)<s  *m; 
struct  m_app_info  info; 

DESCRIPTION:  Creates  a  new  node  at  the  end  of  the  table 

list  and  stores  the  contents  of  info  in  the 
node.  If  there  is  insufficient  memory  to 
create  the  node,  a  message  is  printed. 

PARAMETERS:  struct  column  *c,  struct  c  tab_info  info 

RETURNS :  None 

CALLS:  c_iinit 

CALLED  BY:  (KS.PC)  get_coluran_inf o 

********♦**»*♦»************»**********,*,********,*********, ***,*^,*,,*,****,*^ 

{ 

if  (m->app_tail  !=  NULL)  { 

m->app_tail->next  =  (struct  m_anode  *)  malloc (sizeof (struct  m_anode) ) ; 
if  (m->app_tail->next  ==  NULL)  { 

printf ( " (MKS/application  list  insert):  Out  of  memoryXn"); 
return  NULL; 

) 

m->app_tail->next->prev  =  m->app_tail; 
m->app_tail  =  m->app_tail->next; 
m->app_tail->info  =  info; 
m->app_tail->next  =  NULL; 

} 

else  ( 

m->app_tail  =  (struct  m_anode  *)  malloc (sizeof (struct  m_anode) ) ; 
if  (m->app_tail  ==  NULL)  { 

printf (" (MKS/application  list  insert):  Out  of  memoryXn"); 
return  NULL; 
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} 

m->app_head  =  m->app_tail; 
m->app_tail->next  =  NULL; 
m->app_head->prev  =  NULL; 
m->app_tail->inf o  =  info; 

} 

) 

m_adel (m,  node) 
struct  m)cs  *in; 
struct  m_anode  *node; 

/*********************»***************»,*********,*»**,***,**********»********* 
DESCRIPTION:  Deletes  node,  pointed  to  by  node,  from  the 

table  list. 

PARAMETERS:  struct  column  *c,  struct  c  tnode  *node 

RETURNS:  None 

CALLS:  c_idelrest 

CALLED  BY:  c_tdelrest 

**********»****»»*»******************»»»*»***********************,****»**, ,***^ 

{ 

if  (node  ==  NULL)  return; 

if  ((node  ==  m->app_head)  |I  (node  ==  m->app_tail) )  { 
if  (node  ==  m->app_head)  { 
m->app_head  =  node->next; 

if  (m->app_head  !=  NULL)  m->app_head->prev  =  NULL; 

if  (node  ==  m->app_tail)  ( 
m->app_tail  =  node->prev; 

if  (m->app_tail  !=  NULL)  m->app  tail->next  =  NULL; 

} 

} 

else  { 

node->prev->next  =  node->next; 
node->next->prev  =  node->prev; 

) 

free (node) ; 


m_adelrest (m,  node) 
struct  m)<s  *m; 
struct  m_anode  *node; 

/*»********«**********,*******,***************************, *********^^,^^,^^^^, 
DESCRIPTION:  Deletes  all  nodes  from  node  to  tbl_tail 

(current  node  to  end  of  list)  from  the 
table  list. 

PARAMETERS:  struct  column  *c,  struct  c  tnode  *node 

RETURNS :  None 

CALLS :  c  tdel 

CALLED  BY:  c  deltree 

{ 

struct  m_anode  *tmp; 

while  (node  !=  NULL)  ( 
tmp  =  node->next; 
m_adel (m,  node) ; 
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node  =  tmp 

) 

} 

struct  m_anode  *m 
struct  mks  *ni; 
char  *name; 

DESCRIPTION: 

PARAMETERS  : 
RETURNS : 

CALLS: 

CALLED  BY: 

( 

struct  m_anode 

} 

struct  m_anode  *m_ 
struct  mks  »m; 

/★♦********<r*****- 

DESCRIPTION: 

PARAMETERS : 
RETURNS : 

CALLS : 

CALLED  BY: 

{ 

if  (m->app_cur 

} 

struct  m  anode  *m 
struct  mks  *m; 

DESCRIPTION: 

PARAMETERS : 

RETURNS : 

CALLS : 

CALLED  BY: 

( 

if  (m->app_cur 

} 
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afind(m,  name) 


Searches  the  table  list  for  a  node 

containing  name. 

struct  column  *c,  char  *name 

Pointer  to  the  next  node 

None 

None 

****★**★★*★**★*★★*★★*★★**★★■***★★***★★***■*★★★★★•*■*★*★*★★★★★★*♦/ 

*tmp; 


anext (m) 

Advances  the  tbl_cur  pointer  in  c  to  the 

next  node  in  the  table  list. 

struct  column  *c 

Pointer  to  the  next  node 

None 

show_column_info 

!=  NULL)  m->app_cur  =  m->app_cur->next ; 


aprev (m) 


'iriritirici(ie1t^t'ti1tiriciei(iei(ie-1t1titititiiitir-kiiitic1r*itirir-kiiifit'tciritieiricir-tritieifiritif'k'1e1rieir'k1e'^ 

Move  the  tbl_cur  pointer  in  c  to  the 

previous  node  in  the  table  list. 

struct  column  *c 

Pointer  to  the  previous  node 

None 

None 

**ie1fir**it**it1r**********iiic*-kii*-*iirii**-k*****ie-k-^**ic-k***-k'k-k-k-k******^ 

'.=  NULL)  m->app_cur  =  m->app_cur->prev; 
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/******************************************************************»»********** 

FILE  MKS.H 

lAMS  meta  knowledge  source  header  file. 

Project  specifications  developed  by: 

Peggy  Wright  in  support  of  lAMS  research 
Code  written  by: 

Shannon  Thornton  19  AUG  92 


Contains  all  data  types  used  to  model  lAMS  Knowledge  Source.  The  file 
consists  of  three  parts:  column  structures,  table  structure  and  index 
structures.  At  the  beginning  of  each  part  there  is  a  BNF-like  description 
of  the  particular  structure. 


Naming  Convention 

Functions  used  for  manipulating  the  tree  or  list  structure  begin  with  the 
first  letter  of  the  structure  used.  For  example,  to  insert  a  column  into 
the  column  tree,  c_ins ( . . )  is  called.  The  r_  indicates  the  function  uses 
the  column  tree  structure.  All  functions  that  manipulate  the  table  list 
inside  a  node  in  the  column  tree  begin  with  c_t .  Any  function  that 
manipulates  the  index  list  inside  the  previously  mentioned  table  list 
begins  with  c_i .  All  table  tree  functions  start  with  t_,  and  all  index 
tree  functions  start  with  i_.  This  convention  is  also  used  for  global 
tree  variables,  c_tree,  t_tree,  and  i_tree,  which  reference  the  column 
tree,  table  tree,  and  index  tree,  respectively. 


#include  "iams_const .h"  /♦  Include  lAMS  Constants  file  */ 

j'itie***icifkirir******fr*ir****'k***t*ifkii*ititiritir******it***iHfk****ifkif**itit*it***’*e*****1r***/ 

Structures 

/*  _*  ********  *_ 
/****************************************************************************** 

BNF-like  Description  of  the  Column  Structures 

::=  <column  name>  <type>  <size>  (decimal] 

{  <app.  name>  ) 

::=  Any  valid  Oracle  column  name 
::=  Any  valid  table  space  name 
: :=  Char  I  Date  I  Numeric  I  Long 

::=  1..240  I  7  |  1..38  I  0. .65536 

::=  I  -37. .37  | 

Raw  and  Long  Raw  types  are  also  acceptible.  The 
Raw  type  is  similar  to  Char,  and  the  Long  Raw  is 
similar  to  Long.  The  same  size  restrictions  apply. 

See  Oracle  Database  Administrator's  Guide  for  more 
information . 

Conventions  used  in  BNF-like  syntax: 

I  }  -  indicates  the  element (s)  can  occur  zero  or  more  times. 

<  >  -  indicates  the  element  is  a  non-terminal 

[  ]  -  indicates  the  element  is  a  non-terminal  that  is  optional  in  the 

definition 

I  -  Synonym  for  the  OR  operator.  X  !  Y  is  read  "X  or  Y" 

'  '  -  Indicates  character  data  is  stored 


<Column> 

<column  name> 
<app.  name> 
<type> 

<size> 

[ decimal ] 

***  NOTE  *** 
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★★★**★* 


»  yr 


struct  m_app_info  { 


char  name [NAMELENGTH] ; 

}; 

/* 

Application  name 

‘/ 

struct  m 

anode  { 

/* 

Linked  list  node  used  in  mks  to  store 

*  / 

/‘ 

the  applications  in  which  the  current 

*  / 

/* 

column  is  used. 

*/ 

struct 

m_app_info  info; 

/* 

Data  stored  in  the  node 

‘/ 

struct 

m  anode  *prev; 

/* 

Pointer  to  the  previous  node 

*  / 

struct 

m  anode  ‘next; 

/* 

Pointer  to  the  next  node 

‘/ 

In¬ 


struct  mks  { 

char  name [NAMELENGTH]  ; 
char  type [ 10 ] ; 
int  size; 
int  decimal; 

struct  m_anode  *app_head; 
struct  m_anode  *app_tail; 
struct  m_anode  *app_cur; 


/*  Column  name  */ 
/*  Column  type  */ 
/*  Column  size  */ 
/♦  Number  of  decimal  places  if  column  is  */ 
/*  numeric  */ 
/*  Pointer  to  a  linked  list  of  apps  in  */ 
/*  which  the  column  appears  */ 
/*  Pointer  to  the  tail  of  the  linked  list  */ 
/*  of  applications.  ■*/ 
/*  Pointer  to  current  node  in  the  linked  */ 
/*  list.  Used  for  traversal.  ■•/ 


struct  m_node  {  /* 

/  * 

struct  m_node  ‘parent;  /* 

struct  mks  info;  /* 

struct  m_node  ‘Ichild;  /* 

struct  m_node  ‘rchild;  /* 

)  ; 


Tree  node  used  to  store  information  */ 
about  each  column  */ 
Pointer  to  the  parent  node  */ 
Data  stored  in  the  node  */ 
Pointer  to  the  left  sub-tree  */ 
Pointer  to  the  right  sub-tree 


*  End  of  MKS  Structures 


*/ 
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/*»***»»****»*»**»***»»»******»*»»»»»*»*«»**»»»**»♦*****■«♦*************** 

PROGRAM  QC.C 

lAMS  query  constructor  builds  SQL  queries. 

Project  specifications  developed  by: 

Peggy  Wright  in  support  of  lAMS  research 
Code  written  by: 

Shannon  Thornton  03  AUG  92 


INPUT:  table  names 

column  names  &  column  values 

**♦»*****»»*****»****»**»**»*»»♦***»»*»»»»*»**»*»»*»»«***»*♦***♦*****♦♦»*/ 
♦include  <stdio.h> 

♦include  "types. h" 

extern  struct  c_node  *c_tree; 

extern  FILE  *iams_qry,  *-iams_log; 

char  *chec)c_type  (c,  r) 
struct  c_node  *c; 
char  *r; 

{ 

static  char  temp[50i; 

switch  (c->info.type [0] )  { 

case  ' N' : 

strcpy (temp, r ) ; 
break; 
case  ' D' : 

sprint f (temp, "T0_DATE (%s,  'MM/DD/YY' ) ", r) ; 
break ; 
default : 

sprint f (temp, " ' %s' " , r ) ; 

( 

return  temp; 

} 

bld_query (query ,  type,  tl,  tlop,  tlrange,  tltable,  t2,  t2op,  t2range, 
t2table,  jc,  jcop,  jcrange) 

char  *query,  *tl,  *tlop,  *tlrange,  *tltable,  *t2,  *t2op,  *t2range,  *t2table, 
*jc,  *jcop,  ‘jcrange; 
int  type; 

/ir*ir1c1t**-k’irit*iticir1t*ititit**it*ir*irit*lrie*ir*******1t****it1tit****-A****-k-kifk*****'k***-k******'k* 

DESCRIPTION; 

PARAMETERS: 

RETURNS : 

CALLS : 

CALLED  BY; 

+********»***♦***#***********★************************************************/ 

( 

struct  c_node  ‘tlnode,  *t2node,  ‘jcnode; 
if  (tl  [0]  1=  NULL) 

tlnode  =  (struct  c_node  *)  c_f ind (c_tree,  tl); 
if  (t2  [0]  !=  NULL) 
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t2node  =  {struct  c_node  *)  c_f ind (c_tree,  t2); 
if  (jc[0]  !=  NULL) 

jcnode  =  (struct  c_node  *)  c_f ind (c_tree,  jc) ; 
switch  (type)  ( 
case  TBL : 

if  ((tl[0]  !=  NULL)  &4  {t2[0]  !=  NULL)) 

sprintf (query, "SELECT  %s,  %s  FROM  %s” , t 1 , t 2 , t Itable ) ; 
else  if  (tl [0]  1=  NULL) 

sprintf (query , "SELECT  %s  FROM  %s",  tl,  tltable); 
else  sprintf (query, "SELECT  %s  FROM  %s",  t2,  t2table) ; 
if  (tlnode  !=  NULL)  { 

if  (tlop[0]  !=  NULL)  { 

sprintf (query, "%s  WHERE  %s  %s  %s ",  query , 1 1 , t lop, 
chec)c_type  (t  Inode,  1 1  range)  )  ; 
if  (t2node  !=  NULL) 

if  {t2op[0]  !=  NULL) 

sprintf  (query, "%s  AND  %s  %s  %s" , query, t2 , t2op, 
check_type (t2node, t2range) ) ; 

} 


else  if  (t2node  !=  NULL) 
if  {t2op[0]  !=  NULL) 

sprintf (query, "%s  WHERE  %s  %s  %s" , query, t2 , t2op, 
check_type (t2node, t2range) ) ; 

) 

else  if  (t2node  !=  NULL) 

sprintf (query , "%s  WHERE  %s  %s  %s”, query, t2, t2op, 
check_type (t2node, t2range) ) ; 

break; 

case  TBL_COL_TBL: 

sprint f (query , "SELECT  %s.%s,  %s.%s,  %s.%s  FROM  %s,  %s",  tltable, 
t2table,  jc,  t2table,  t2,  tltable,  t2table) ; 
if  (tlopIOl  !=  NULL)  { 

sprintf (query,  "%s  WHERE  %s,%s  %s  %s",  query,  tltable,  tl, 
t lop,  check_type (tlnode, tl range)  )  ; 
if  (t2op[01  !=  NULL) 

sprintf (query, "%s  AND  %s.%s  %s  %s",  query,  t2table,  t2. 


check_type (t2node, t2range) )  ; 


t 


else  if  (t2op[0]  =  NULL) 

sprintf (query, "%s  WHERE  %s.%s  %s  %s",  query,  t2table,  t2, 
t2op,  check_type {t2node, t2range) ) ; 
if  (jcop[0]  !=  NULL) 

if  {(tlop[0]  !=  NULL)  II  (t2op[0]  !=  NULL)) 

sprint f (query , "%s  AND  %s.%s  %s  %s  AND  %s.%s  =  %s.%s", 
query,  tltable,  jc,  jcop,  check_type ( jcnode, jcrange) , 
tltable,  jc,  t2table,  jc) ; 

else 

sprint f  (query , "%s  WHERE  %s.%s  %s  %s  AND  %s.%s  =  %s.%s", 
query,  tltable,  jc,  jcop,  check_type ( jcnode, jcrange) , 
tltable,  jc,  t2table,  jc) ; 

else 

if  ((tlopIO]  !=  NULL)  II  (t2op[0)  !=  NULL)) 

sprintf (query, "%s  AND  %s.%s  =  %s.%s",  query,  tltable,  jc, 
t2table,  jc) ; 

else 

sprint f  (query , "%s  WHERE  %s.%s  =  %s.%s",  query,  tltable,  jc. 
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t2table,  jc) ; 

break; 
default : 

querv  =  NULL; 

) 

trim (query) ; 

fprintf (iams_qry,  "%s\n",  query); 
fprintf {iams_log,  "%s\n",  query); 
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/***************************************»»******************************•** 

PROGRAM  STRUTIL.C 

Project  specifications  developed  by; 

Peggy  Wright  in  support  of  lAMS  research 
Code  written  by: 

Shannon  Thornton  03  AUG  92 

Shannon  Thornton 

Contains  the  following  helpful  character  string  functions: 

rtrim  -  Removes  trailing  spaces  from  a  character  string 

Itrim  -  Removes  leading  spaces  from  a  character  string 

trim  -  Removes  leading  and  trailing  spaces  from  a  character  string 

strupr  -  Convert  a  character  string  to  upper  case 

strlwr  -  Convert  a  character  string  to  lower  case 

#include  <string.h> 

♦include  <ctype.h> 

char  *rtrim(s) 
char  *s; 

/★★★♦★*Hr********************»******************>**********************^********* 

DESCRIPTION:  Removes  trailing  spaces  from  the  character 

string  s. 

PARAMETERS:  char  *s 

RETURNS:  Pointer  to  the  string  with  the  spaces 

removed. 

CALLS:  None 

CALLED  BY;  None 

{ 

int  i  =  (strlen(s)  -  1 )  ; 
if  (s  ==  NULL)  return  s; 

while  ((s[i]  ==  '  ')  &&  (i  >=  0))  sli  — )  =  ' \0' ; 

return  s; 


char  *ltrim(s) 
char  *s; 

/**»*****»******»*»**♦♦*»**»»***************♦**»****»****»***»***********»*»*** 

DESCRIPTION:  Removes  preceding  spaces  from  a  character 

string  s. 

PARAMETERS:  char  *s 

RETURNS:  Pointer  to  a  string  with  the  spaces 

removed. 

CALLS:  None 

CALLED  BY :  None 

{ 

int  i  =  0; 

if  (s  ==  NULL)  return  s; 

while  ((s[i]  ==  '  ')  &&  (i  <=  strlen(s)))  i++; 
if  (i  >  0)  strcpy  (s,  (char  *)  &s[i]); 
return  s; 
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char  *trim(s) 
char  *s; 

/*****************************»***********************,********************»*** 
DESCRIPTION:  Removes  preceding  and  trailing  spaces  from 

a  character  string  s. 

PARAMETERS:  Char  *s 

RETURNS:  Pointer  to  a  string  with  the  spaces 

removed. 

CALLS:  Itrim,  rtrim 

CALLED  BY:  None 

********************************************,***,****,,*************, *********^ 

{ 

if  (s  ==  NULL)  return  s; 

Itrim (s) ; 
rtrim (s) ; 
return  s; 

} 


char  *strupr(s) 
char  *s; 

DESCRIPTION:  Converts  a  character  string  s  to  all  upper 

case . 

PARAMETERS;  char  *s 

RETURNS:  Pointer  to  a  string  converted  to  upper 

case . 

CALLS :  None 

CALLED  BY:  None 


{ 


/ 


int  i; 


if  (s  ==  NULL)  return  s; 

for  ( i=0 ; i<st rlen ( s ) ; i++ )  s[i)  =  toupper (s ( i ] ) ; 
return  s; 


char  *strlwr (s) 
char  *s; 

/*********************************ir****tc*e*ir1t****iftt-l,irir-^itfc****irifk*ic*itit**'kirir*****1t 

DESCRIPTION:  Converts  a  character  string  s  to  all  lower 

PARAMETERS:  char’*s 

RETURNS:  Pointer  to  a  string  converted  to  lower 

case . 

CALLS :  None 

CALLED  BY:  None 

*************************************f*i,*i,i,*i,*i,-n,i,ti,ir*******1,**1,*-l,-l,i,**i,i,-i,-),i,i,i,i,/ 


int  i; 


if  (s  ==  NULL)  return  s; 

for  (i=0;i<strlen (s) ; i++)  s[i]  =  tolower (s [ i ] )  ; 
return  s; 
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/*************************************************************************»*»♦* 

PROGRAM  T_TREE.C 

Project  specifications  developed  by: 

Peggy  Wright  in  support  of  lAMS  research 
Code  written  by: 

Shannon  Thornton  03  AUG  92 


Contains  the  necessary  routines  to  create,  manipulate,  and  dispose  of  a 
binary  tree.  Each  node  in  the  tree  contains  a  table  name,  a  linked  list 
of  columns,  and  a  linked  list  of  indexes.  The  column  list  contains  the 
column  names  of  a_l  columns  used  in  the  table,  while  the  index  list 
contains  the  index  names  of  all  indexes  used  in  the  table.  See  TYPES. H 
for  structure  definitions. 

Naming  Convention 

Functions  used  for  manipulating  the  tree  or  list  structure  begin  with  the 
first  letter  of  the  structure  used.  For  example,  to  insert  a  column  into 
the  column  tree,  c_ins(..)  is  called.  The  c_  indicates  the  function  uses 
the  column  tree  structure.  All  functions  that  manipulate  the  table  list 
inside  a  node  in  the  column  tree  begin  with  c_t .  Any  function  that 
manipulates  the  index  list  inside  the  previously  mentioned  table  list 
begins  with  c_i .  All  table  tree  functions  start  with  t_,  and  all  index 
tree  functions  start  with  i_.  This  convention  is  also  used  for  global 
tree  variables,  c_tree,  t_tree,  and  i_tree,  which  reference  the  column 
tree,  table  tree,  and  index  tree,  respectively. 


tinclude 

#include 

tinclude 

tinclude 


<string . h> 
<stdio . h> 
<malloc . h> 
"types . h" 


struct  t_node  *t_tree; 
int  cmp; 


*  Global  Tree  Variables 

/*  Pointer  to  the  table  tree  */ 
/*  Temporary  variable  used  in  find  and  insert  */ 
/*  Since  find  and  insert  are  recursive  procedures  */ 
/*  the  temporary  variable  is  declared  global.  If  */ 
/*  it  was  declared  locally,  it  would  be  */ 
/*  re-allocated  on  the  stack  for  every  function  */ 
/*  call.  */ 


/* 


*  Function  definitions  * 


*/ 


Tree  Functions  * 


*/ 

*/ 

*/ 


t_shownode (info) 
struct  table  info; 


DESCRIPTION: 

PARAMETERS: 
RETURNS : 
CALLS : 


****************** 
Prints  the  content 
output . 

struct  table  info 

None 

None 


s  of  info  to  standard 


♦  ★  ★ 
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CALLED  BY:  t_lnr 

{ 

printf ("%-32s\n", info. name) ; 

} 

t_init ( ) 

/^^★★♦★★★★★^★★★ir******************^***************-*****************************!^ 

DESCRIPTION:  Initializes  the  global  tree  variable  c_tree 

to  NULL. 

PARAMETERS :  None 

RETURNS :  None 

CALLS :  None 

C.ALLED  BY:  (KS.PC)  init_trees 

*»***»**»**»***********»*»*»*****************************,********»********»*»/ 

{ 

t_tree  =  NULL; 

} 

t_store (t ,  info) 
struct  t_node  ’t; 
struct  table  info; 

DESCRIPTION:  Puts  the  contents  of  info  into  the  info 

field  of  the  t_node  pointer  t. 

PARAMETERS;  struct  t_node  *t,  struct  taole  info 

RETURNS :  None 

CALLS:  None 

CALLED  BY:  t_ins 

( 

t->parent  =  NULL; 
t->lchild  =  NULL; 
t->rchild  =  NULL; 
t->inf o  =  inf o; 

) 

struct  t_node  *t_ins(t,  info) 
struct  t_node  **t; 
struct  table  info; 

DESCRIPTION:  Creates  a  node  in  the  tree  pointed  to  by  t, 

and  stores  the  contents  of  info  in  that 
node.  If  a  node  already  e-xists  with  the 
same  )cey  field,  a  message  is  printed 
warning  the  user.  If  there  is  insufficient 
memory  to  aliocate  the  new  node,  a  warning 
is  printed. 

PARAMETERS:  struct  t_node  **t,  struct  table  info 

RETURNS:  Pointer  to  a  new  node  containing  infn.  if 

a  node  already  exists  with  the  same  )cey 
fi-ld,  a  pointer  to  that  node  is  returned. 

If  there  is  insufficient  memory,  NULL  is 
returned . 

CALLS:  t_ins,  t_store,  t_cinit,  t_init 

CALLED  BY:  (KS.PC)  get_table_inf o,  t_ins 
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*******************************■»***************»*********************"  -  *****»*/ 
{ 

if  (*t  ==  NULL)  { 

*t  =  (struct  t_node  *)  malloc  (sizeof (struct  t_node) ) ; 
if  (*t  ==  NULL)  { 

printf  (" (table  insert):  Out  of  memoryXn"); 
return  NULL; 

} 

t_store(*t,  info) ; 
t_cinit (& (*t) ->info)  ; 
t_iinit (& (*t) ->info) ; 
return  *t; 

> 

else  { 

cir.p  =  St rcmp  (info  .name,  (*t) ->info  .name)  ; 

if  (cmp  <  0)  return  t_ins ( & ( *t ) ->lchild,  info) ; 

else 

if  (cmp  >  0)  return  t_ins (& (’t) ->rchild,  info); 
else  ( 

printf  ("’**  DUPLICATE  KEY  (%s)  ***\n”, info. name) ; 
return  *t; 

} 

} 

t_deltree (t ) 
struct  t_node  *t; 

DESCRIPTION:  Deletes  the  tree  pointed  to  by  t. 

PARAMETERS:  struct  t_node  *t 

RETURNS :  None 

CALLS:  t_deltree,  t_cdelrest,  t_idelrest 

CALLED  BY:  (KS.PC)  del_trees 

{ 

if  (t->lchild  !=  NULL)  ( 
t_deltree (t->lchild) ; 
t->lchild  =  NULL; 

) 

if  (t->rchild  !=  NULL)  { 
t_deltree (t->rchild) ; 
t->rchild  =  NULL; 

) 

t_cdelrest (st->info,  t->inf o . col_head) ; 
t_idelrest (&t->info,  t->inf o . idx_head) ; 
free  (t )  ; 

} 

struct  t_node  *t_find(t,  name) 
struct  t_node  *t; 
char  *name; 

DESCRIPTION;  Searches  the  tree  pointed  to  by  t  for  the 

node  containing  name. 

PARAMETERS:  struct  t_node  *t,  char  *name 

RETURNS:  Pointer  to  the  node  containing  name,  or 
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NULL  if  not  found 
CALLS:  t_find 

CALLED  BY:  t  find 

{ 

if  (t  ==  NULL)  return  NULL; 

cmp  =  strcmp  (name,  t->ir.fo  .  name)  ; 

if  (cmp  <  0)  return  t_f ind (t->lchild,  name) ; 

else 

if  (cmp  >  0)  return  t_f ind (t->rchild,  name) ; 
else  return  t ; 


struct  t_node  *t_left(t) 
struct  t_node  ♦*t; 

/***********-k*-A*********-^^*-t^-^-r^w-tr**w*-^***-^Ki(icic***yr**Ttit1r*ir*irtr*ir**'ii:**-*riririr*'tr***** 

DESCRIPTION:  Changes  t  to  point  to  its  own  left  child. 

If  t  is  NULL  upon  calling  the  function, 
nothing  is  changed. 

PARAMETERS:  struct  t_node  **t 

.RETURNS:  Returns  a  pointer  to  t's  left  child.  If  t 

is  NULL,  NULL  is  returned. 

CALLS :  None 

CALLED  BY :  None 

{ 

if  (*t  !=  NULL)  *t  =  (*t)->lchild; 
return  ’t; 

; 


struct  t_node  *t_right(t) 
struct  t_node  **t; 

DESCRIPTION:  Changes  t  to  point  to  its  own  right  child. 

If  t  is  NULL  upon  calling  the  function, 
nothing  is  changed. 

PA.RAMETERS  :  struct  t_node  *»t 

RETURNS:  Returns  a  pointer  to  t's  right  child.  If  t 

IS  NULL,  NULL  is  returned. 

CALLS :  None 

CALLED  BY:  None 

******************:***-A**it*****ieir*-*r-*,***tc*-tr-it*t(*ifki,****irfr1,ie-tfi(irtf1(i,itirir*le-ietri!-ki,t[iti,i,i, 


rf  Ct  !=  NULL)  *t  =  ( *t ) ->rchild; 
return  *t; 


t_lnr (t ) 

struct  t_node  *t; 

DESCRIPTION:  Performs  an  Inorder  traversal  (LNR)  of  the 

tree  pointed  to  by  t  while  displaying  the 
contents  of  each  node  as  it  is  visited. 
PARAMETERS:  struct  t  node  *t 

RETURNS:  None 

CALLS:  t  Inr,  t  shownode 
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CALLED  BY:  t_lnr 

****»*************»»*********»***********»*****»********************'■*********/ 

{ 

if  (t->lchild  !=  NULL)  t_lnr {t->lchild)  ; 
t_shownode (t->info)  ; 

if  (t->rchild  !=  NULL)  t  Inr (t->rchild)  ; 


*  *  *******_______---- 

Table  List 
Functions 

/*•  —  *  *  *  *  *  *  it  it  *  »  —  —  —  —  — 

t_cinit (t ) 
struct  table  't; 

/■tririr*itirir*itir*irititieiri>!irirititiri(ieic1ei(itieitic**itit*it*itiritir*ir*irir*it**n***'k*ir*********'^-* 

DESCRIPTION;  Initializes  the  column  list  pointers: 

col_cur,  col_head,  and  coi_tail. 

PARAMETERS:  struct  table  *t 

RETURNS :  None 

CALLS:  None 

CALLED  BY:  t_ins 

■*★»★★★**«*■***★♦**•»»■»'»★***■»•****«*■*»»*»  *****★***!»★★**★****★★***★**★•*'*■*»'* 

( 

t“>coi_cur  =  t->ccl_head  =  t->coi_tail  =  NULL; 


*  / 
*/ 
*  I 


•**•★»*★*•■*■* 


t_cins (t,  info) 
struct  table  't; 
struct  t_col_info  info; 

^/  ♦»**»■*««■***#*■*•»■*•***»*»*■»**•»»*♦**'**•***★%***•***★★*★***»•**■*#**■***★*★★★★★★■*»*★*★★* 

DESCRIPTION:  Creates  a  new  node  at  the  end  of  the  column 

list  and  stores  the  contents  of  info  in  the 
node.  If  there  is  insufficient  memory  to 
create  the  node,  a  message  is  printed. 

PARAMETERS:  struct  table  *t,  struct  t_col_info  info 

RETURNS:  None 

CALLS:  None 

CALLED  BY:  (KS.PC)  get_table_inf o 


if  (t->col_tail  1=  NULL)  { 

t->col_tail->nt.-.t  =  (struct  t_cnode  *)  malloc  (sizeof  (struct  t_cnode)  )  ; 
if  (t->col_tail->next  ==  NULL)  { 

printf (" (table/column  list  insert):  Out  of  memoryXn"); 
return  NULL; 

) 

t->col_tail->next->prev  =  t->col_tail; 
t->col_tail  =  t->col_tail->next ; 
t->col_tail->inf o  =  info; 
t ->col_tai l->next  =  NULL; 

} 

else  { 

t->col_tail  =  (struct  t_cnode  *)  malloc (sizeof (struct  t_cnode) ) ; 
if  (t->col_tail  ==  NULL)  ( 

printf  (" (table/column  list  insert):  Out  of  memory\n") ; 
return  NULL; 
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) 

t->col_head  =  t->col_tail; 
t->col_tail->next  =  NULL; 
t ->col_head->prev  =  NULL; 
t->col_tail->info  =  info; 

) 

) 

t_cdel{t,  node) 
struct  table  *t; 
struct  t_cnode  *node; 

DESCRIPTION:  Deletes  node  from  the  column  list. 

PARAMETERS:  struct  table  *t,  struct  t_cnode  *node 

RETURNS :  None 

CALLS :  None 

CALLED  BY:  t_cdelrest 

{ 

if  (node  ==  NULL)  return; 

if  ( (node  ==  t->col_head)  I  I  (node  ==  t->col_tail) )  { 
if  (node  ==  t->col_head)  ( 
t->col_head  =  node->next; 

if  (t->col_head  !=  NULL)  t->col  head->prev  =  NULL; 

f 

if  (node  ==  t->col_tail)  { 
t->col_tail  =  node->prev; 

if  (t->col_tail  1=  NULL)  t->col_tail->next  =  NULL; 

} 

} 

else  { 

node->prev->next  =  node->next; 
node->next->prev  =  node->prev; 

} 

free (node) ; 

) 

t_cdelrest  (t,  node) 
struct  table  *t; 
struct  t_cnode  *node; 

/******»»»****♦»»»**»♦********»****«*»»****»***»*********»***********»*»*♦***♦* 

DESCRIPTION:  Deletes  all  nodes  from  node  to  col_tail 

(current  node  to  end  of  list)  from  the 
column  list. 

PARAMETERS:  struct  table  »t,  struct  t_cnode  *node 

RETURNS :  None 

CALLS:  t_cdel 

CALLED  BY:  t_deltree 

{ 

struct  t_cnode  *tmp; 

while  (node  !=  NULL)  { 
tmp  =  node->next; 
t_cdel (t ,  node) ; 
node  =  tmp; 
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) 

) 

struct  t_cnocie  *t_cfind(t,  name) 
struct  table  *t; 
char  name [ 31 ] ; 

DESCRIPTION:  Searches  the  column  list  for  the  node 

containing  name. 

PARAMETERS:  struct  table  »t,  char  *name 

RETURNS;  Pointer  to  a  node  containing  name 

CALLS:  None 

CALLED  BY:  None 

★  ***x*'*'**'*»***-*'*******-*******:^-»**5^r***j^*»******Tr**#'**»********-«-**»**********'***/' 

{ 

struct  t_cnode  *tmp; 

} 

struct  t_cnode  *t_cnext(t) 
struct  table  *t; 

DESCRIPTION:  Advances  the  col_cur  pointer  in  t  to  the 

next  node  in  the  column  list. 

PARAMETERS:  Struct  table  *t 

RETURNS:  Pointer  to  the  next  node 

CALLS :  None 

CALLED  BY:  (KS.PC)  show_tabie_inf o 

*-K**'n*f!-K****ir-t!******:*ieitii**if-k*iilr*irir*ir**tr*ir**ir*tr-it*’t,*-**iriif,*tiir******-kit**Jriritltitttirif**/ 

( 

if  {t->col_cur  !=  NULL)  t->col  cur  =  t->col  cur->ne.xt; 


struct  t_cnode  *t__cprev(t) 
struct  table  't; 

DESCRIPTION:  Moves  the  col_cur  pointer  in  t  to  the 

previous  node  in  the  column  list. 

PARAMETERS:  struct  table  *t 

RETURNS:  Pointer  to  the  previous  node 

CALLS ;  None 

CALLED  BY:  None 

( 

if  (t->col_cur  1=  NULL)  t->col_cur  =  t->col_cur->prev; 

} 

/»  *  Index  List 

Functions 

t_iinit  (t ) 
struct  table  *t; 

/★★★★★★★★★★★♦<r*#*#^****^*****^******Hr,k***************-***********-********ir****** 

DESCRIPTION:  Initializes  the  index  list  pointers  stored 

in  t . 

PARAMETERS:  struct  table  *c 
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RETURNS :  None 

CALLS:  None 

CALLED  BY :  t  ins 

*»»****»»*»********V*********»*i>***»*'»»*»**»»******»****»**»*.-.  ***»***»»»»»»»»«/ 

{ 

t->idx_cur  =  t->idx_head  =  t->idx  tail  =  NULL; 

} 

t_iins(t,  info) 
struct  table  *t; 
struct  t_idx_info  info; 

/★*******************************^^r**********^******^^*^^****^***^»***********^ 

DESCRIPTION:  Creates  a  new  node  in  the  index  list  and 

stores  the  contents  of  info  in  that  node. 

If  there  is  insufficient  memory  to  create 
the  new  node,  a  message  is  printed. 

PARAMETERS:  struct  table  *t,  struct  t_idx  info  info 

RETURNS :  None 

CALLS :  None 

CALLED  BY:  (KS.PC)  get_table_inf o 

{ 

if  (t->id>:_tail  1=  NULL)  { 

t->idx__tai l->next  =  (struct  t_inode  *)  malloc (sizeof (struct  t_inode) ) ; 
if  {t->idx_tail->next  ==  NULL)  { 

pr intf ( " (tabie/index  list  insert):  Out  of  memory\n"); 
return  NULL; 

} 

t->idx_tail->next->prev  =  t->idx_tail; 
t->idx_tail  =  t->idx_tail->next; 
t->idx_taii->info  =  info; 
t->idx_tail->next  =  NULL; 

) 

else  { 

t->idx_tail  =  (struct  t_inode  *)  malloc (sizeof (struct  t_inode) ) ; 
if  (t->idx_tail  ==  NULL)  { 

printf  (”  (table/index  insert);  Out  of  memoryXn"); 
return  NULL; 

) 

t->idx_head  =  t->idx_tail; 
t->idx_tail->next  =  NULL; 
t->idx_head->prev  =  NULL; 
t->idx  tail->info  =  info; 


t_idel (t ,  node) 
struct  table  *t; 
struct  t_inode  *node; 

DESCRIPTION:  Deletes  node  from  the  index  list. 

PARAMETERS:  struct  table  *t,  struct  t_inode  *node 

RETURNS:  None 

CALLS :  None 

CALLED  BY:  t  idelrest 

*»»*»**************■?»********«*♦*****♦»******»****************»***********»*** ^ 
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if  (node  ==  NULL)  return; 

if  ( (node  ==  t->idx_head)  ! 1  (node  ==  t->idx_taii) )  ( 

if  (node  ==  t->idx_head)  { 
t->idx_head  =  node->next; 

if  (t->idx_head  1=  NULL)  t->idx_head->prev  =  NULL; 

} 

if  (node  ==  t->idx_tail)  { 
t->idx_tail  =  node->prev; 

if  (t->idx_tail  !=  NULL)  t->idx_tail->r.ext  =  NULL; 

} 

} 

else  { 

node->prev->next  =  node->next; 
node->next->prev  =  node->prev; 

} 

free (node) ; 

) 

t_idelrest (t ,  node) 
struct  table  *t; 
struct  t_inode  *node; 

/★*♦★*★★**»*♦*★★**★**♦****•**♦**•***»★****★**★**★*★*★*★*»**★»★***★**»*»★★★*★*★*★★ 

DESCRIPTION:  Deletes  all  nodes  from  the  index  list  that 

come  after  and  including  node. 

PARAMETERS:  struct  table  ♦t,  struct  t_inode  *node 

RETURNS :  None 

CALLS:  t_idel 

CALLED  BY:  t_deltree 

f 

struct  t_inode  ’tmp; 

while  (node  1=  NULL)  ( 
tmp  =  node->next; 
t_idel (t ,  node) ; 
node  ==  tmp; 

} 

) 

struct  t_inode  *t_ifind(t,  name) 
struct  table  *t; 
char  name  [  31 ] ; 

DESCRIPTION:  Searches  the  index  list  for  the  node 

containing  name. 

PARAMETERS:  struct  table  *t,  char  *name 

RETURNS:  Pointer  to  a  node  containing  name 

CALLS :  None 

CALLED  BY:  None 

{ 

struct  t_inode  *tmp; 

) 

struct  t  inode  *t  inext(t) 
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struct  table  *t; 
/*★•***★**★*•■*•**■*** 

DESCRIPTION: 

PARAMETERS: 
RETURNS : 

CALLS : 

CALLED  BY: 

{ 

if  (t->idx  cur 


struct  t_inode  *t 
struct  table  *t; 

DESCRIPTION: 

PARAMETERS : 
RETURNS : 

CALLS ; 

CALLED  BY: 

»********#*******. 

( 

if  (t->idx  cur 


t_tree.c  Page  10 


Advances  the  idx_cur  pointer  stored  in  t  to 
the  next  node  in  the  index  list, 
struct  table  *t 

Pointer  to  the  next  node  in  the  index  list. 

None 

(KS.PC)  show_table_info 

*-***-k-k-k******n****ie*****it*ieirir-k**ir***iritirirtirit*ir***’***ic**ir**it*-i,/ 


!=  NULL)  t->idx_cur  =  t->idx  cur->next; 


iprev (t) 

Changes  the  idx_cur  pointer  stored  in  t  to 
the  previous  node  in  the  index  list, 
struct  table  ‘t 

Pointer  to  the  previous  node  in  the  index 
list . 

None 

None 

1=  NULL)  t->idx_cur  =  t->idx_cur->prev; 
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/******»*»******»***»*»**»»*»****»*»**«»»**»*♦«**»»*»»**»» 

File  types. h 

Specifications  developed  by: 

Peggy  Wright  in  support  of  lAMS  research 
Code  written  by: 

Shannon  Thornton  03  AUG  92 


Included  in:  C_TREE.C,  T_TREE.C,  I_TREE.C,  KS.PC 

Contains  all  data  types  used  to  model  lAMS  Knowledge  Source.  The  file 
consists  of  three  parts:  column  structures,  table  structures  and  inde;-: 
structures.  At  the  beginning  of  each  part  there  is  a  BNF-iike  spec  1 f i cat lor. 
of  the  particular  structure. 


Naming  Convention 

Functions  used  for  manipulating  the  tree  or  list  structure  begin  with  the 
first  letter  of  the  structure  used.  For  example,  to  insert  a  column  into 
the  column  tree,  c_ins{..)  is  called.  The  c_  indicates  the  function  uses 
the  column  tree  structure.  All  functions  that  manipulate  the  table  list 
inside  a  node  in  the  column  tree  begin  with  c_t .  Any  function  that 
manipulates  the  index  list  inside  the  previously  mentioned  table  list 
begins  with  c_i .  All  table  tree  functions  start  with  t_,  and  all  inde.x 
tree  functions  start  with  i_.  This  convention  is  also  used  for  global 
tree  variables,  c_tree,  t_tree,  and  i_tree,  which  reference  the  column 
tree,  table  tree,  and  index  tree,  respectively. 

**»*«-#t*’jr**<r***#i>'**'*************»**w**^*»*****»**************'***'*»***»«****»**»  ' 

#include  "iams__const  .  h"  /*  Include  lAMS  Constants  fi±e  *  ■' 

yir»*»***'*-**-jr*»»*'»*»'*'»-»<r#*»*«'jr*»********'*******’**'****'***'**-i»***'*****»****'»'*'****'»/ 


Column  Structures 

—  *  *  *  *•  *  •*  *  *  *  *•  *  _  ♦/ 
/★♦^♦^^■♦★♦★•^•■••★ir**********#***-*'*****'***-*-*********'****-****-**-*****'*****-***'*-*****-* 

BNF-like  Description  of  the  Column  Structures 


<Column> 

<column  name> 
stable  name> 

< index  name> 
<type> 

<size> 

( decimal ] 

*  »  *  NOTE  *  *  » 


<key> 

<pr imary> 

<f oreign> 

<composite> 

<nullable> 


<column  name>  <type>  <size''  [decimal] 

I  <table  name>  <key>  <nullable>  (  <index  name>  !  ' 

Any  valid  Oracle  column  name 
Any  valid  Oracle  table  name 
Any  valid  Oracle  i..dex  name 
Char  I  Date  I  Numeric  I  Long 
1..240  I  7  I  1..38  I  0.  .65536 
I  -37. .37  I 

Raw  and  Long  Raw  types  are  also  acceptible.  The 
Raw  type  is  simiilar  to  Char,  and  the  Long  Raw  is 
similar  to  Long.  The  same  size  restrictions  apply. 
See  Oracle  Database  Administrator's  Guide  for  more 
information . 

<primary>  <foreign>  <composite> 

'Y'  I  'N'  I  '  ' 

'Y'  I  'N'  I  '  ' 

'Y'  I  'N'  I  '  ' 

'Y'  I  'N' 


Conventions  used  in  BNF-iike  syntax: 
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{  )  -  indicates  the  element  (s)  can  occur  zero  or  more  times. 

<  >  -  indicates  the  element  is  a  non-terminal 

[  ]  -  indicates  the  element  is  a  non-terminal  that  is  optional  in  the 

definition 

I  -  Synonym  for  the  OR  operator.  X  1  Y  is  read  "X  or  Y" 

'  '  -  Indicates  character  data  is  stored 

»»*******-»»1t*********»********1t^******H*******»**T^-*******Tt*********Tt-*********/ 

Struct  c_idx_info  { 

char  name [NAMELENGTH] ;  /*  Index  name  * 

)  ; 

struct  c_inode  { 

struct  c_idx_info  info; 
struct  c_inode  *prev; 
struct  c_inode  *next; 

}  ; 

struct  c_tab_info  { 

char  name [NAMELENGTH]  ; 
char  key[4]; 
char  nullable; 
struct  c_inode  *idx_head; 

struct  c_inode  *idx_tail; 

struct  c  inode  *idx  cur; 


struct  c  tnode  < 


struct  c_tab_info  info; 
struct  c_tnode  *prev; 
struct  c_tnode  ‘next; 

)  ; 


struct  column  { 

char  name [NAMELENGTH] ;  /*  Column  name  */ 

char  type [10];  /»  Column  type  *f 

int  size;  /*  Column  size  */ 

int  decimal;  /»  Number  of  decimal  places  if  column  is  */ 

/*  numeric  */ 

struct  c_tnode  ‘tbl_head;  /*  Pointer  to  a  linked  list  of  tables  in  */ 

/*  which  the  column  appears  */ 

struct  c_tnode  *tbl_tail;  /*  Pointer  to  the  tail  of  the  linked  list  */ 

/*  of  tables.  */ 

struct  c_tnode  *tbl_cur;  /*  Pointer  to  current  node  in  the  linked  */ 

/*  list.  Used  for  traversal.  */ 

)  ; 

Struct  c_node  (  /*  Tree  node  used  to  store  information  */ 

/*  about  each  column  */ 

struct  c_node  ‘parent;  /*  Pointer  to  the  parent  node  */ 

struct  column  info;  /*  Data  stored  in  the  node  */ 


ni 


/*  Linked  list  node  used  in  column  to  ‘/ 
/•  store  the  tables  in  which  the  current  ‘/ 
/‘  column  is  used.  */ 
/‘  Data  stored  in  the  node  ‘/ 
/*  Pointer  to  the  previous  node  ‘/ 
/*  Pointer  to  the  next  node  ‘/ 


/*  Table  name  */ 
/‘  PFC  -  Primary/Foreign/Composite  ‘/ 
/*  Y  -  Null,  N  -  Not  Null  ‘/ 
/*  Pointer  to  a  linked  list  of  indexes  in  */ 
/*  which  the  column  is  used  ‘/ 
/*  Pointer  to  the  tail  of  the  linked  list  */ 
/‘  of  tables.  *! 
/‘  Pointer  to  current  node  in  the  linked  ‘/ 
/‘  list.  Used  for  traversal.  •/ 


/‘  Linked  list  node  used  in  c_tab_info  to  ‘/ 
/*  store  the  indexes  in  which  the  current  */ 
/*  column  is  used  in.  */ 
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struct  c_node  *lchild;  /*  Pointer  to  the  left  sub-tree 

struct  c__node  *rchild;  /*  Pointer  to  the  right  sub-tree 


/* 


*  End  of  Column  Structures  * 


*/ 


*  / 


/*»*»***»*»»**»**»«*»*»**♦******»*»*»»»*****»»»»**»*******»******»****♦*«***»*/ 
I  *  *  *  *  *  *  *  »  *  *  *  —  _  —  —  —  —  */ 

Table  Structures 

!  "tk  it  it  it  it  it  it  it  it  it  *  —  —  w.  —  —  —  *  /' 

/ititi(*irirititi,iritiriritititirititiritirit*ititiritiiititititititiritititititiritit*itiiitititititirit-kit*ititititititiriritir**iiit**itit*itit 

BNF-like  Description  of  the  Table  Structures 


<Table> 

<column  name> 
<table  name> 
<index  name> 
<key> 
<primary> 

<f oreign> 
<composite> 
<nullable> 
<unique> 


<table  name>  (  <column  nanie>  <key>  <nullable>  } 
{  <index  name>  <unique>  ) 

Any  valid  Oracle  column  name 
Any  valid  Oracle  table  name 
Any  valid  Oracle  index  name 
<primary>  <foreign>  <composite> 

-y,  I  I  ,  , 

'Y'  1  'N'  I  '  ' 

'Y'  I  'N'  I  '  ' 

'Y'  i  'N' 

'Y'  I  'N' 


Conventions  used  in  BNF-like  syntax: 

{  )  -  indicates  the  element (s)  can  occur  zero  or  more  times. 

<  >  -  indicates  the  element  is  a  non-terminal 

[  ]  -  indicates  the  element  is  a  non-terminal  that  is  optional  in  the 

definition 

I  -  Synonym  for  the  OR  operator.  X  I  Y  is  read  "X  or  Y" 

'  '  -  Indicates  character  data  is  stored 

*********it*'^itiritiririrititiritititiritirit1tititititirititir*»irir*it'tritiritit****ik****irit*ieirititititirit*ititititirir'^**/ 


struct  t_idx_info  ( 

char  name iNAMELENGTH] ;  /* 

char  unique;  /* 


struct  t_inode  {  /* 

/* 

/  * 

struct  t_idx_info  info;  /* 

struct  t_inode  *prev;  /* 

struct  t_inode  *next;  /* 

)  ; 


Index  name  *' 
Y  -  Unique,  N  -  Nonunique  */ 

Linked  list  node  used  in  table  to  */ 
store  the  indexes  used  in  the  current  */ 
table.  */ 
Data  stored  in  the  node  */ 
Pointer  to  the  previous  node  */ 
Pointer  to  the  next  node  */ 


struct  t_col_info  { 

char  name [NAMELENGTH] ; 
char  key  [  4 ] ; 
char  nullable; 


/*  Table  name  */ 
/*  PFC  -  Primary /Foreign/Composite  */ 
/*  Y  -  Null,  N  -  Not  Null  */ 


struct  t  cnode  { 


/*  Linked  list  node  used  in  table  to  */ 

/*  store  the  columns  used  in  the  current  */ 
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in¬ 


struct  t_col_info  info; 
struct  t_cnode  *prev; 
struct  t  cnode  *next; 


/*  table. 

/*  Data  stored  in  the  node 
/*  Pointer  to  the  previous  node 
/*  Pointer  to  the  next  node 


*  / 
*  / 
*  / 

/ 


struct  table  { 


char  name [NAMELENGTH] ; 

/* 

Table  name 

*  / 

struct 

t 

_cnode  *col  head; 

/* 

Pointer  to  a  linked  list  of  columns  in 

*/ 

/* 

the  table 

*/ 

struct 

t 

_cnode  *col  tail; 

/* 

Pointer  to  the  tail  of  the  linked  list 

*  / 

/* 

of  columns 

*/ 

struct 

t 

cnode  *col  cur; 

/* 

Pointer  to  current  node  in  the  linked 

»/ 

/* 

list.  Used  for  traversal. 

*  / 

struct 

t_ 

_inode  *idx  head; 

/* 

Pointer  to  a  linked  list  of  indexes 

*/ 

/* 

used  by  the  table 

*  / 

struct 

t_ 

_inode  *idx  tail; 

/♦ 

Pointer  to  the  tail  of  the  linked  list 

*/ 

/* 

of  indexes 

*/ 

struct 

t_ 

_inode  *idx_cur; 

/* 

Pointer  to  current  node  in  the  linked 

*  / 

!; 

/* 

list.  Used  for  traversal. 

■*/ 

struct  t_node  { 

/* 

Tree  node  used  to  store  information 

*/ 

/* 

about  each  table 

*/ 

struct 

t_ 

_node  ^parent; 

/* 

Pointer  to  the  parent  node 

’/ 

struct 

table  info; 

/* 

Data  stored  in  the  node 

*  / 

struct 

t 

_node  *lchild; 

/* 

Pointer  to  the  left  sub-tree 

*  / 

struct 

t^ 

_node  *rchild; 

/* 

Pointer  to  the  right  sub-tree 

*/ 

t  ; 


•*  End  of  Table  Structures  *- 


/♦*■»*»»»*»**♦*♦»********»************, 

iriciex  Structures 

—  ~  —  —  —  —  —  —  —  *  *  *  *  *  *  *  *  *  *  *  —  —  — 
/***■»*»*****1,**■,»*■,*******t^:*****^,^,■^**t^^,^,^,^,^,^,^,^,^,^,^,^,^,^,*******/rir*ir***^ri,****»*** 

BNF-like  Description  of  the  Index  Structures 


<Index> 
<column  name> 
<table  name> 
<index  nanie> 
<unique> 


=  <index  naine>  <unique>  <table  name>  {  <coluttin  name>  ) 
=  Any  valid  Oracle  column  name 
=  Any  valid  Oracle  table  name 
=  Any  valid  Oracle  index  name 
=  'Y'  I  'N' 


Conventions  used  in  BNF-like  syntax: 

(  )  -  indicates  the  element (s)  can  occur  zero  or  more  times. 

<  >  -  indicates  the  element  is  a  non-terminal 

[  ]  -  indicates  the  element  is  a  non-terminal  that  is  optional  in  the 

definition 

I  -  Synonym  for  the  OR  operator.  X  I  Y  is  read  "X  or  Y" 

'  '  -  Indicates  character  data  is  stored 
*****»**********************,*******,,*****,*****,***************, ,*,«*****^^^^ 


struct  i_col  info  { 
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char  name [NAMELENGTH] ;  / 

In¬ 
struct  i_cnode  {  / 

/ 

/ 

struct  i_col_info  info;  / 

struct  i_cnode  *prev;  / 

struct  i_cnode  *next;  / 

}; 


Coiuiiiri  nsrns  *  / 

Linked  list  node  used  in  index  to  */ 
store  the  columns  used  in  the  current  */ 
index.  */ 
Date  stored  in  the  node  */ 
Pointer  to  the  previous  node  *■/ 
Pointer  to  the  next  node  */ 


struct  index  { 

char  name [NAMELENGTH] ; 
char  unique; 

char  tbl_name  [NA.MELENGTH]  ; 
struct  i_cnode  *col_head; 

struct  i_cnode  *col_tail; 

struct  i_cnode  *col  cur; 


/*  Index  name  ■* 

/*  y  -  Yes,  N  -  No  ’'/ 

/*  Table  name  '  ! 

/*  Pointer  to  a  linked  list  of  columns  *■  ' 
/*  used  in  the  index  ’/ 

/*  Pointer  to  the  tail  of  the  linked  list  */ 
/*  of  columns  */ 

/*  Pointer  to  current  node  in  the  linked  */ 
I*  list.  Used  for  traversal.  »/ 


struct  i_node  [  /*  Tree  node  used  to  store  information  *! 

/*  about  each  index  */ 

struct  i_node  ^parent;  /*  Pointer  to  the  parent  node  */ 

struct  index  info;  /*  Data  stored  in  the  node  *i 

struct  i_node  *lchild;  /*  Pointer  to  the  left  sub-tree  */ 

struct  i_node  'rchild;  *  Pointer  to  the  right  sub-tree  */ 

( ; 


*  End  of  Index  Structures  * 
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